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OH PUTAIN , LE GRAPHISME ! 

Ca y est, on I'a ! Qu'est-ce qu'on est contents ! Oh la la ! Mais qu'est-ce qu'il est vide ! Oh la la ! 



PAS DE BASIC 

Le fait d'avoir noire Alan 520 ST 
pour nous tout seuts ne nous a pas 
apporte grand-chose qu'on ne 
sache deia Surtout Que le basic ne 
sera pas pret avant fin aout. J'ai pu 
en voir tou! de meme une pre-ver- 
sion ; c'est beau ' Attention les 
yeux ! 

Vous connaissez !e pnncrpe du GEM 
(le gesiionnaire du systeme) : des 
fenetres apparaissent sur I'ecran. 
que vous controlez grace a une 
souris Dans le basse, il y a quatre 
fenetres distinctes. La premiere 
s'appelie Output et vous montre le 
resuitar. du programme que vous 
avez tape La seconde. c'est 
Command qui permet d'entrer des 
ordres en mode direct La troi- 
sieme, List, vous montre votre lis- 
ting, et la quatneme. Editor, qui est 
cachee par les trois autres lors- 
qu'eHe nest pas en service est un 
editeur pieme page On ne sait pas 
encore comment sera le langage lui- 
rneme. smon qu'il contient un 
grand nombre d'outils de develop- _ 
pement (pour debugger, suivre pas, 
a pas. tester un sous-pro- : 
nramme.. ). 

Pour 1'mstant. le seul langige d«s- 
oontble est le logo Cette version^, 
est tres puissante, puisqu'elle ne 
comporte pas moins de 157 ins- 
fructiorr; Mais voila le logo n'est 
qu'un langage d'apprentissage. 
Pourquci avoir fait ce cboix ? O'au- 
tant qu'il semble bien mal adapte" a 
ce type de machines II aurait ete 
certamement plus rationnel de prd- 
voir un Pascal ou un C. langages 
qui permanent des applications plus 
serieuses Vous comprendre; que 




nicus tient sur un tiers du disque 
Et pour vous taire baver. une re- 
cherche d'occurence (on recherche 
combien de fois un mot apparait 
sur le disque) sur le tiers du disque 
met 5 secondes (dans cette de- 
monstration, le mot etait trouve 
179000 fois). Pas mal. non ? Le 
prix n'a pas etc annonce, on pense 
cependant que I'mterface seule vau- 
dra plus de 10-000 baiies Faut 
c'qu'y faut. mon brave 

ALORS. FEN CAUSES, 
OE L" ATARI ? 

J'y viens. |'v viens. Examinons-le 
dans ses moindres details 
Le clavier comporte 94 touches, di- 
visees en quatre groupes : clavier 
alphanumerique normal, pave d'6di- 
hon. pave numerique et touches de 
fonchon. La frappe est confortable 
et la version franchise est en 
A2ERTY avec tous les accents pos- 
sibles et imaglnables. 
Oes connecleurs, on peut retenir 
celui du disque dur, qui permet un 
debit de 1 mega par seconde C'est 
a dire quo vous pouviz charger 
toutc la memoire vive en une 
demie-.econde. Qui dit mieux ? On 
peut signaler aussi les deux interfa- 
ces MIDI qui servent a piloter des 
instruments de musique et 1'inter- 




nous n'ayons pas juge utile de 
transformer nos tests fous pour les 
passer sur logo... 

Ce dernier et le GEM sont toujours 
sur rjisquettes C'est tres ge"nant 
pour piusieurs raisons ca prend de 
ia place memoire. c'est long en 
temps de chargement et tl laut re- 
charger le systeme d'exploitation 
des qu'un problem? apparait ou des 
qu'on rallume la machine Cepen- 
dant, ce n'est pas en soi une mau- 
vaise chose : il vaut mieux etre cer- 
tain d'avoir un GEM parfaitement 
exempt de bugs avant de lancer les 
modeles avec Roms miegrees. car il 
est difficile et couteux de modifier 
des Roms. Celles-ci devraient arri- 
ver en Septembre 

Gem Pamt et Gem Write sont pour 
bientot, probabiement Aout. Un 



mors plus tard. toujours selon les 
previsions d'Atari. on pourra beneii- 
cier entre autres de Wordstar el 
d'un Pascal Gem Draw (utilitaire de 
dessm, plutdt orients vers le dessin 
technique) sera fourni avec la ma- 
chine. II off re i'avantage de pouvoir 
transferer les dessins qui ont 616 
realises avec lui sur toutes les 
autres machines tournant sous 
Gem. puisque les images sont sto- 
ckees sous forme logiquc. 

OES LENDEMAINS QUI 
SCINT1LLENT 

Regardez iimage de la cascade Re- 

gardez-la bien, parce qu'elle est 
vraiment ires belle. Et regardez-ia 
aussi parce qu'elle a ete faite avec 
un digitaiiseur d'images (digitali- 



seur. c'est pas francais. Normale- 
ment. c'est numenseur, ou un true 
dans le style, mais je prefere digita- 
liser. ca lait plus cfasse). Ce qui si- 
gn i(ie. si je ne m'abuse, qu'il 
EXISTE un diortaliseur pour Atari 
520 ST ■ Oui ! Mais il n est pas en- 
core en vente. II devrait letre d'ici 
trols ou quatre mois. 
Mais il y a mieux Depuis qu'on 
vous parle du petit pere Tramiei, 
vous devez comrnencer a savoir 
qu'il est ton a her II I'a prouve. 
une lots de plus, en annoncant pour 
Janvier un lecteur de disque laser. 
et en en faisant la demonstration a 
ia presse amencaine Demonstration 
plus que concluanle : un disque 
contient 550 megas. soit 550 mil- 
lions de caracteres Pour vous don- 
ner une idee, I'Encyclopedia Britan- 



CINOCHE-TELOCHE pages n 13 



INFO-BD : TOUTE L'ACTUALITE EN PAGE15. 



BIDOUILLE GRENOUILLE 

Ou comment (richer, pirater. modifier, tratiquer. magouiller. 
bidouitter et grenouitter avec les logiciels du monde entier. 
Mais dans la legallte. au moins ? Of course, mon general ' 
Lire page 10 




face cartouche qui peut permeme 
I'ajout d'un langage ou d'un logioel 
sans encombrement de la Ram. 
II y a aussi des alimentations, et 
c'est bien dommage. II en laut une 
pour i unite centrale. une pour le 
lecteur de disquettes el une prise en 
plus pour le momteur Inutile de 
dire qu'une multi-pnse est nCces- 
saire. 

Passons a I'ecran. Lors de I initiali- 
sation, un grand espace vide appa- 
rait En haul de I'ecran, quatre 
mots : Desk, File, View et Options. 
Desk contient un emulateur VT52 
qui peimet de commumqucr par 
rintermediaire dun modem. On y 
trouve aussi un Control Pane! gr.ice 
auquel on peut regler I'heure. les 
couleurs, la vitesse de saisie de la 
souris. le bruit des touches et leur 
vitesse de reponse. un utilitaire de 
Suite page 17 



C'est nouveau, 9a vient de sortir : 

L'actualite de la micro-informatique. Lire pages 9 
DEULIGNEURS les faineants sont en pagelO. 

CONCOURS PERMANENTS 

votre programme, non conteni de vous lapporier 1.000 froncs par page pubilee, 
peut vous rapporter 20.000 froncs choque mois ou un voyoge en California pour 
deux choque trimestre Reglement en page Interleure. 



LESRUSSESACHETENT 
DES MSX 

lis n'ont rlen a boufter, les queues devsnt les magnslns de 
vetements sont Intermlnabtes. lis sont tellement heuroux que 
le gouvernement vlent d'etre oblige de prendre des mesurcs 
d'urgonce pour frelncr ralcoollsmo qui fait des ravages dans 
la population, surtout chez les Jeunes. Les bBgnoles ? 
Connelt pas f La video ? Inconnue au batalllon I Par contre. 
les machines de guerre sophlstlquees, les radars dernier erf. 
les avions de combat supersonlques, les (usees, lor. satelli- 
tes esplons, les bombes nucleases, les missiles, ils connais- 
sent ! c'est I'armee qui se les pale. 

Leurs dlrlgeants vlennent de so rendro compte, comme 
Fablus, que le futtir pouvoir mondial passera par I'fnformatl- 
que, II faut done former les jeunes et leur acheter des ordl- 
nateurs, Ils boufleront et se dlstralront plus tard 1 
Ou se passe ce conte de fees modem* ? En URSS : 250 mil- 
lards de centimes ont ete debtoques pour I'achat d'ordlna- 
teurs pour les ecolcs. Une premiere tranche do 10.000 MSX n 
oto commanded aux japonals ravls de se debarrasser d'une 
aussi Jolle quantite de becanea Invendables. 
On s'en doute, Thomson n'a pas ete foutu de recuperer la 
molndre commando. II aurait sans doute du envoyer Mar- 
chals, avec son look de vendcur de chaussettes trouoos et 
ses relations, II aurait aans doute reuasl a leur tourguer les 
dernlers 3.000 TO? on QWERTY dont personne ne veut. 
C'etait notre minute hebdomadalre d'anti-communlsme prl- 
malre. 



FORMATION A L'ASSEMBLEUR 

Le prof et I'amaleur eclaire vous atlendent en page 20 



DES PROGRAMMES POUR VOTRE ORDINATEUR 
AMSTRAD . APPLE lie et He . CANON X-07 . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 
MSX et compatibles . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 
SHARP PC 1500 . TEXAS TI-99/4 A. THOMSON T07, TO7/70, ET M05. 



COLORIMAGE 

Sur votre HECTOR docile, exprimez vous en gribouillu- 
res, dessinures et coloriures. 



Claude THUREAU 
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.1 UXIIIII Illlll) 

R0R4S30 

190 SCREENS. 39, 230. 39iCLS 

;onUnutr on das sin TAPE? C 

HO PRINT" Pour co»MfiCBf un dessm TAPEZ N 

220 RS-tNSTR»u ■ : ;i-< * ..:.:■: \ v THENG0T0190 

: ; « 'HENGOT0260 

240 GOT04250 

230 PERMET DE TRAVAILLER A L'ECHELL 

E SUR N-IMPORTE QUEL ECRAN 

260 PEN3l INPUT" LARGEUR PAVE on mi II i .net res" i AB 

270 INPUT" HAUTEUR PAVE en mi 1 1 i metres" : AC 

230 CLS:CURSOR9.43 

"°0 PRINT-St vous avt: ouOlte I« Signification d'un 
• connindt.upt: (?) iuivi da la coAaiande 

300 PEN3lPRINT" (RETURN) pour sul to" : Kt = INSTRS tl ) 

310 CLS 

320 G0SUB4870 

330 PLDT3.56,113. 1,2: PLOTS, 43, 1 13. 1 ,2: PLOTS, 56. 1 . 1 I 
,2iPL0T16,36. 1.1 1. 2: PL0T36. 56, 1, 1 1 , 2: PL0T6? , Si. 1,11, 
2:PL0T107,56.1,1I,2:PL0T1 1B,56,1, 12,2 

340 OUTPUT "X ".9,33. 1 ! OUTPUT "Y" , 1 1 1 ,53. 1 

330 U-l : X« lOl Y"60: XA=Oi YA-Ol 6QSUB2030: G0SUB20SO 

360 OUTPUT-P". 60,54,1 

370 V»1;0»--S' , :G0SU81H0 

330 PLOTX.Y, 1 

390 PLQT2OO,44.3O,42,2iPLOT201.43,28,3a,0:K=l:GOSUB 
1100 

4O0 CLS 

410 PLOT12O,54,70,7,O 

420 PL0T202.43.26, t I . O: PL0T202, 16,26,10,0 

430 CLS:P£N1:PRINT- POINT"; : PEN2: PRINT" G.D.H.B.Z.R 
.M.O.A.I.P.X.Y" 

440 PEN1:PRINT" COULEUR";:PEN2:PRINT" : 0, 1,2,3, K" 

430 PENliPRtNT" F0NCTIDNS"j;PEN2:PRINT" : J.E.T.L.C 
,S,F, U.H.I 

460 DS-INSTRSU) 

470 IFM-"«-THENCLSjPRINT" VOULEZ-VOUS BIEN TOUT EF 
FACER ? (0/N)-:ZZ«-INSTRSf I): IFZZSO-o"ANDZZS<>"n"T 
HENG0T047Q:ELSEIFZZS="o"THENWIPE:G0TO320:ELSEGDT0400 

480 IFD»=":"THEND*=-'Z":GQSUB9S0:&OT043O 

490 IFDS=" j"TH£ND«="J":GOSUBll I0:G0T04890 

300 IflD»a , 'd"THENE = liH=0:D«= ,, D":GOSUB920:GOT07ao 

310 IFD«="g"THENE=-lrH=0:D*="G":GOSUB920:GQTQ780 

320 IFOS*"h"TH£N£=0:W=l : DS="H" : G0SUB920: G0T0780 

330 IFD*=>"b"TMENE=O:H»-l!D*="B":GOSUB920:GOT0780 

340 IFD»*-r"THEN G0SUB7S0 

330 :FDs="0"THENK=0:GOSUB1100 

360 IFDS="1"THENK~I:G0SUB1 lOO 

570 IFDS="2~TH£NK=2:GOSUB1100 

380 IFD*'="3 ,, THENK = 3:GCSUBI100 

590 IFD« = "k-"THEND» = ~K i *:&0SUB1110sG0T03260 

t -■.:» = -! "THE HGQSUB 1 900 
610 IF0S="s"THE"i;,3' S "iGOSUBlllOlV'I j G0T0460 
620 IFDS="t"THENDS=."T":G05UBl 1 10: V=0: G0T0460 
630 IFJ:» = "e-THEfiD« = "E":&OSUBl UO:GOT01280 
640 IFD*="l"THEND*="L":G0SUeill0iG0T01360 
650 IFDS="* 'THEMXA-Oi G0SUB2030: G0T0460 
660 IFD*=","THEriYA=0:G0SUB2050:G0T0460 
670 IFOT=-a"THEN0UTPUT"X-' , ,162,34,2:GOSUBl770 
680 lFDS="o"THENGOSUB1980 

690 lFO*=-p"THEM D*="P":G0SU82070:U=1:G0EUB2080:G0S 
UB2030: GOSUB2OS0: G0T0460 

700 IFD*= ' m"THENGCJSUB2070 : U=0 : GOSUB2080 : G03UB2030 : G 
OSUB2030: GOT0460 

710 1FD*=-="THEND*="C":G0SUB1110: IFAB-OORAC=OTMENCL 
5:GOT0260:ELSEGOT02t80 
720 1FDS=-"'"THEN&05UB920:G0SUB3400:GQTD400 
730 IFD»="f "THEND*="F-;GaSUB920:G0TD3770 
740 IF0»="w"THE"D*=-W:GOSU892O:GOSU&4lBOiGaTO4OO 
730 IFD«= M u' , THENCLS: INPUT-ENTREZ LE TEXTE" ; TS: IFTS- 
""THENGQT0400i£L5EQUTPUTT*,X,Y*6,KiM=P0INT<X, Y> : PLOT 
(. ' , l"1- 1 : G0T0400 
760 IFZ*1TH£NZ=0:G0T0400 
770 GOT0460 

780 IFV=ITHENGQSUB1I30: IFZ = 1 THEflZ=0: G0T0430: ELSEGOT 
0460 

790 IFH'yOANDE'>OTHENPL0Tl7.33,3a,9,OlPLOT68,33,38, 
9,0:GOT082O 

BOO IFH»0THENPL0T17,3S,3B,9,0 

810 IFE-0TMENPL0T68, 33, 39,9,0 

820 X-X*E:Y-Y*HiGOSU089O 

930 XA-XA+EtYA=YA+H 

B40 IFEE=1THENGQT0760 

330 PLOTX.Y.r- 

B60 IFPEEr: '14341 >=2S4THENG0T0820 

870 GO3UB2030)GOSUB203O 

880 IFEE=1THEHEE=0:G0T0400:ELSEG0T0460 

390 /D-INT(X) sGOSUB2HO 

900 YO-INTCY) :G0SUB2120 

910 RETURN 

920 PL0T202, 43,26, 1 1 ,0: DUTPUTD4,212. 41 ,2 

930 RETURN 

7430 DEPLACEMENT AUTRE 



OUE HAUT BAS GAUCHE DROITL 

960 PRINT" Angle da deplacement 0-359 

970 PRINT" rape: (RETURN put* 

9B0 PRINT- De-placement — M* Sort la 

990 CURSORl 70.42:FEN2: INPUTOHtl IFDH«-"B"THEN60 

lOOO DE=VAL<DHS) 

1 010 IFOE OrnENDE = ;tO*DE:GOTOIOIO 

1020 IFDE r60THENDE=D£-360:GOT01020 

1030 DE^lririDEl (DI-LEN<DH*J -l;PL0T2ol ,47,26, 11.0 

1040 IFDI - 5THENDF" 196; ELSE [FDI-2THENDF-200l£LSEDF-2 
03 

1050 OUTPUTDE.DF.41,2 

1060 CA-DEIPI <l)/180iS«l)=SIN(CAI iCl 1>=C0S(CA1 

1070 IFCA-PI I.3)THENH=liE=0:G0T01090 

10BO IFABS(SII) ) ;.7THENIFSC1 J : OTHENH= 1 : E = AC/ ( AB< Tr.n 
ICA) >:ELSEH=-l:E=-AC/<ABtTANtCA> ) :ELSEIFCM J . OTHENE" 
l:H=TAN{CA)»AB/AC:ELSEE='-l:H— TAN<CA)»AB/AC 

1090 Z-11 RETURN 

1100 PL0T204,7!,22.12.I":RETURN 

1110 PL0T202. 16.26, 10.0; DUTPUTDs, 212. 16.2 

1120 RETURN 

1130 PLOTX.Y, M 

1140 IFrK;0ANDE<;0THENPL0T17,55,38,9,0:PL0T68,55,38 
,9.0:GCJT0II70 

1150 IFH=0THENPL0T17, 55. 38.9,0 

1160 IFE=0THENPL0T68,55,3B,9,0 

1170 PLOTX.Y, M 

1180 X=X*E:YaY+H:G0SUB390 

1190 XA=XA*-E: YA=YA+H 

1200 IFEE=»1THENX^X-E:Y*Y~H:XA=XA-E:YA=YA-H:G0T01230 

1210 G05UB1260 

1220 IFPEEK< 14341 ) =254THENG0T0I 170 

1230 G0SUB2030: G0SUB2050 

1240 IFEE=1THENEE=0:Z=1 

1250 RETURN 

1260 M=PaiNT(X,Y>: PLOTX, Y,rl«-1: RETURN 

1270 ' TRACE RECTANGLE 

PLEIN 

1280 CLS:G03UB4880 

1290 PRINT" COIN SUPERIEUR GAUCHE TAPEZ N 
1300 PRINT" COIN INFERIEUR DROIT TAPEZ 0"lPRINT" 
tape! S pour annul er"; 
1310 OUTPUT"N O", 127,34,1 
1320 D*=INSTR*( 1) : IFD*="s"THENG0T0400: ELSEG0SUB1 550 

1330 IFTA(0J*TA(2)=2THENPL0TA(0) , A ( 1 ) , ( 1 *A (4) -A (0) 1 
, (1+A(1J-A(5>),K:TA(0)=0:TA<2)=0:ELSEGOT01320 
1340 G0BUB1260:G0T01530 

1350 ' TRACE LIGNE 

1360 CLS 

1370 PRINT" 2 cm : vous connat ssbz 
1380 PRINT" do-part et arrives i tapez 1 
1390 PRINT" depart, long., angle : tape; 2 
1400 PRINT" S pour annuler-j 
1410 K**INSTRS(1): IFK»="s"TH£NG0T0400 
1420 IFK«="1"TMENG0T01440 
1430 IFKS="2"Tr]ENG0Ta30a0:ELSEGtJT014l0 
1440 CLS 
1450 G0SUB4880 

1460 PRINT" Pointer le depart j Taper N 
1470 PRINT" Pointei l'arrlvee : Taper V 
1480 PRINT" S pour annul er ■' ; 
1490 QUTPUT"N V", 127,34,1 
1500 DS=INSTRS(1): IFOS="s"THEN G0T0400 
1310 G0SUB1550: IFZ=1THENZ-0:G0T01440 

1520 IFTA(0>+TAC1>=2THENLINEAC0) , Ad ) , A (2) , A (3) ,KiT 
A(0)=0:TA(1)=0:ELSEG0T01300 
)330 CLS:N=K 



1330 IFD* = "d"THErJE = llH=0:0S»"D":GaSUB92O:GOSUBI130 

1360 IFD«="i"THENG0SUB950 

1370 IFD« = "g"THENE = -l:H-0:D»-"G ,, :GasUB920:G0SUBlI30 

I 380 IFD»o- x -THENXA=0:G0SUB2030: RETURN 
1390 IFD«="y"THENY6=O:G0SUB2O50i RETURN 
1600 IFD*-"p"THENG0SU82070iU=l:G0SUB2030lG0SUB2030: 

G0SU82050i RETURN 
1610 IFD*-"m-THENGOSUB2070:U-0:GOSUB2080i60SUB2O30: 

G0SU82030i RETURN 
1620 IFD«-"h"TH£NE-0lH-"liD» = "H":GQSUB920:G0SUBl 130 
1630 IFD« = "b"THENE=0iH=-l!D»=-"B"iG0SUB920:G0SUBl 130 

1640 IFD»-"0 H THENK=>0iG0SUB1100 

1630 IFDts-i-'THENK-liGOSUBUOO 

1660 IFDS="2"THENK = 2:G0SUBH0O 

1670 IFD«-="3"THENK«3iG0SU81100 

1680 IFD*»"n"THENA<0)=XjA(l )="Y:TA(0> =1 ■ OUTPUT "M", 12 
7,34,0:«=P0INT(X,Y):PLaTX,Y,rl-I:RETUPN 

1690 IFD4-"v"THENA(2)"X:A(3)=V:TA(l)=l:0UTF■UT , •V' , , 13 
9,34,0:RETURM 

1700 IFDS""q"THENA(41 "X: A (3) *Y: TA (2) =1 : OUTPUT "□", 15 
I , 34 , i M=PO INT < X , V > s PLOTX , Y , M- 1 : RE TURN 

1710 IFDS-'V'THENGOSUBl^O 

1720 rFD**"a"THENOUTPUT"X=", 1 62. 54, 2t GOSUBl 770 

1730 IFD*»"t "THENG0SUB1900 

1740 IFD»="o"TMENG0SUB19B0 

1730 IFD*-"^"THENG0SUB3400 

1760 RETURN 

1770 9CREEN1 74, 36,64, 12) TA= 1 : Tb=0: G0SUB2150 
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1790 PLOTX, Y.M 

1300 G0SUB21I0: IFEE=lTHEH6OT0178O 

1810 GOSUB186O!TA=0:T8-liG0SUD2i' : IG09UB2 

160 

teZO PL0T162.55. 14, lO,OlOUTPUT"Y- 
PUT"-(YE«tVE"VAL(Y£*) (GOSUl 
: 1FEE=1THENG0T01820 

1830 l50SUSteS0lTA-0lTB-llGO9UB2160lPl.0T162.55, 14,10 
,'j 

1840 G0SU&487OtG0SUB1260 

IBSO RETURN 

I860 XA=XD-X*XA:X=XD 

IB70 G0SUB2030: RETURN 

13BO YA»YD-Y*YA[ Y-YD 

1890 GOBUD20S01 RETURN 

1900 SCREEN 174, 36, 48, 12:FT_QTx. Y,«i TA"2i 1 

SOi OUTPUT "X+"i 162,54,2 
1910 EE»0: INPUT"": XE»: XE-VAL(XE«1 .-GOSUE 

IGOSUBZI 10: IFEE=1THENG0T01910 
1920 XA"XD-x*XAiX=XD:G0SUB2030 
1930 TA»0:TB=liG0SU62150iTA=2:T6 = 0:GDS'.JB2160-PLCT16 

2,S4.5.7,0:0UTPUT"Y*",162,34,2 
1940 £E=0: INPUT""; YE»: YE=VAL (YE*> :GQSl-r : 

-G0SUB2120:IFEE=1THENG0T01940 
1950 YA=YD-Y+YA: Y=YD: G0SUB2050 
1960 TA-0!TB=l:G0SUB2160:PL0T162.54.1/.7. ) 
1970 G0SUB1260:G0SUB4B70:RETURN 
1980 XF=XAl YF=YA: XA=INT ( X- 10) : YA= INT (Y-601 l GOSUB203 

0:G0SUB20S0 
1990 FORI=OT0200 

2000 IFPEEK 1 1 434 1 J =247THENI =200: NEXT : RETURN 
2010 NEXT 

2020 XA=XF:YA=YF:G0SUB2030iG0SUB2050: RETURN 
2030 IFU=OTHENXB=INTtABtXA/IO) / 10: ELSEXB" INT !XA1 
2040 PLOT17,55.38,10,0:OUTPUTXB,20,54,2:RETUFN 
2050 IFU=0THENYB=INT(AC»YA/10) / 10: ELSEYB= INT (YA) 
2060 PL0T68, 55, 38, 10. Ol OUTPUTYB, 7 1 , 54. 2: RETURN 
2070 PLOT57, 55.9,9, 0:OUTPUTD«, 60, 54, li RETURN 
2080 PLOT 1 7. 55. 38. 9, O:F1_0T6e.55. 38,9.0: RETURN 
2090 IFU=OTHENXE=XE»IOO/AB: RETURN 
2100 IFU=OTKENYE=YEHOO/AC:RETURM 
2110 IFXD;'240ORX0<OTHENGaTO213O:ELSERETURN 
2120 IFYD>2300RYD<60THENGOT02I30:ELSERETUPn 
2130 PRINT CHR«(7) 
2140 EE-1:RETURN 

2150 PL0T6.5S, 10, 10,TAl OUTPUT"X", 9,53, TBt RETURN 
2160 PLOT 108. 55. 10. 10. TA: OUTPUT" Y" , Llt,53,TB)RE ri .IF :; 

2170 ' PEP.MET CE TRACE 

R CERCLE OU ARC DE CERCLE 

2180 CLS 

2190 PRINT" 2 cas : vouft connalsse; 

2200 PRINT" Las axtremltes et un point : 1 

2210 PRINT" Le depart, le centra, 1 ' angle : 2 

2220 PRINT" S pour annular"; 

2230 K«-IN8TR*(1) ■ IFK*="s"THENG0T0400 

2240 IFK«="1"THENG0T02260 

2250 IFK«>="2"TH£NG0T02770!ELSEG0T02230 

2260 CLS 

2270 G0SUB4830 

2280 PRINT" Rap le depart N; l'arrlvea V; un pom 
t da l'arc , S pour annular") 

2290 OUTPUT"N V O" , 127,54,1 

2300 D«=INSTR«<I)I IFD«="s"THEN G0T0400 

2310 GOSUBl 530 

2320 IFZ-iTHENZ-0:G0T02260 

2330 IFTA<0)*TAU>*TA(2K3THENG0T02300 

2340 TA<0J=0:TA(l)w0tTA(2)»0 

2330 IFA<1)°A(3)ANDA(31=A(3)THENLINEA(0: 
A(31 ,KiG0TO154O 

2360 IFA(0)-A(2)ANDA(2)-A(4)THENLINEAC01,AI1) , 
A<3) ,KiG0T01340 

2370 F0RI-1T05STEP2 

2380 A(I1=A(I > IAC/IOO 

2390 NEXT 

2400 F0RI«0T04STEP2 

2410 A(I)-A(I)IAB/100 

2420 NEXT 

2430 XN-A(0)iXH-A<2) :XP-A(4) 

2440 
2430 
2460 
2470 
2480 
2490 
2300 
2310 
2320 
2330 
2340 
2330 
2360 
2370 
2580 
2590 
2600 
2610 
2620 
2630 
2640 



A(2), 
A12) , 



BA«YN-YP 

IFBA-0THENSWAPYN,YHtSWAPXN.XHiG0T02440 
BB=XN-XH*( (YHtXN)-<YHIXP)*(YN«XP)-(YN!XN) ) /BA 

IFBB-OTHENSWAPYH, YP, 3WAPXH, XP.i GOT02440 
BC=< (XP"2*YP"2-XN A 2-YN'-2) /BA) I (YH-YN) 
BD-XH"2+YrT2-XN-2-YN-2 
KA=-(BD*8C) /BB 

KB-(XP-2*YP'2*(KAtXP)-XN"2-YN"2-(KA«XN))/BA 
KC=-XN"2-YN-2-<KAtXN>-(KB«YN) 

F0R^?T0- V0 "~ KB/2 ' R ° <SQR(KA ' 2+KB " 2 " (4,KCI>)/I 

C(I)-(A((It2)-2)-X0)/RiS(I)-(A((II2)-l)-Y0)/R 

IFS ( I > -OANOC ( I ) >OTHENF ( I ) -Ol NEXT 

IFSCI) °OANDC(I)'OTHEHF(I)-PI (l) ,NEXT 

F(I1=.ATN(S<I)/S0R(-S(I)IS<I)*I) ) 

IFC ( I KOTHENF ( I » -PH 1 ) -F ( I ) 

IFC ( I ) >OANDS ( I XOTHENF ( I ) -F ( I > *PI (21 

NEXT 

CLS 

T-ATN(AC/(100IR>> 

DCll-0,DI2l^f2)-Flll,D.3I.F,3)-F(l, Swmw# ^ 



LA LOl DES COLTS 



Rendez-vous dans le desert pour un reglement de 
compte dans la plus pure tradition western. 



Tl 99 BASIC ETENDU 



Philippe BRUGERE 
Mode d'emploi: Se joue 3 deux, (ailes PANI avec le joystick. 

140 REM •••*.... 

130 CALL CLEAR :: CALL SCREEN<2)i: CALL 
MAGNIFY<3)!i RANDOMIZE 
160 REM •• Definition caractaras •* 
170 ' •• Cow-bov 1 -# 

ISO DATA 0I030103070FI31303O3060COC0E00O 

08 OC 030 COEOEODOCOCOC 060 6060 700000 

190 ! •• Cow-bov 1 bis •• 

200 DATA 01030I03070F13130303060C0C0E0O0 

080C080EEFBC8COCOCOC 04 06060 700000 

210 • •« Cow-bov 2 •• 

220 DATA O1O30I030707OBO303030206O6OE0OO 

OB0C080C0E0F0C8C8C0C060303O700000 

230 ' •• Cow-boy 2 bis •• 




240 DATA O1O30177IFI303O3O303O2OAO6OEOO0 

080C080C0E0F0C8C8C0C06O30 30700000 

2S0 * •• Cactus 1 •• 

260 DATA 0I03O701010909090F010I0101030F3 

F8080 AOAOAOEOSOBOeoaoaOBOaoeOF OF C 

270 ■ •> Cactua 2 •• 

280 DATA 09090FOIOI0103030701010I01010F3 

F8090909090FoaOB080AOAOEOSOaOFOFC 

290 ' »• Destruction •* 

300 DATA 0200080224003 1 18420154210009000 

280200068201 40B2208A20S2400 I 040B0 

310 ' •• Vautour *• 

320 DATA 0000000000040303030303030000000 

000000000008000000000000000000000 



Vautour •• 

340 DATA 0000000000601 008040 403030 300000 
000O0O00OOO182O408OBO00O0O0OOO000 
330 ■ »» Vautour »■ 

360 DATA 0000000000000000 7O0CO3O3OO0O00O 
O00OO0O0O0OO000O03eC0000000000OO0 
370 ! •• Carcaull •• 
380 DATA 0304091 1 17171 109090903030402020 

1 1 ! iEaE8B8909090A0 A020 4O4OC0 
390 I •• Chtffras .chutes at decors •• 
400 DATA 0000000301000000000000010000000 
0000O00O62F361E3CFED39OBO7OO00000 
410 DATA 0000000000000000000000001 019 IF 1 
F0O00O0OO0OOuO'ViOOO00OOO0F3F7FFF7 



420 DATA 00000060F46C783C7F3BC70DOEOOOOO 

ooo< ocoBoooooooooooooeooooooooo 

430 DATA OOOOOOOOOOOOOOOOOOOOOOOOCFErFF 

F0000000000000000000000000898F8F8 

440 DATA 0OFE8EBE8EBE8EFEO03a3BI8181B187 

E007E0E0EFE8080FE00FC0C0CFE0E0EFE 

430 DATA 00808484FE0C0C0CO0FC80aOFLOL0Ll 

E00FCB48O80FE8EFE00FE86O60C0C0COC 

460 DATA 007C4444FEC6C6FE00FEBEFE0606467 
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B.BERT 



Vivez les affres de B.BERT obstine a repeindre sa py- 
ramide de cubes. 

Jacques DAGUIN 

Mode d'emptoi : 

Occupe environ 11 Ko et les regies sont incluses. Lors de la frappe, 

aoyez attentil aux lignes suivames : 1740 a 1940. 2040 a 2060. 

2260 A 2440 el 4180 a 4360 En effet. les caracleres 1 a 8 doivenl 

etre tapes ainsi en mode minuscule (QWERTY, AZERTY) ■ 

1 CODE * W ou COOE + Z 

2-CODE + Y 

3-CODE + 5 ou CODE * U 

4-COOE + SHIFT + 9 

5-CODE * SHIFT * H 

6-COOE + SHIFT + ? 

7-COOE - SHIFT * " ou CODE + SHIFT + u 

8-CODE * SHIFT ,Uw CODE + SHIFT * 2 

Anention, en ligne 2260 seul *14" esl concerne (sommet de la pyra- 

mtde). 



^LC p&Miet &* MB QAM -p, 



MSX 








edito 



ATTENTION. ATTENTION 

Pour l« mois d'aout vous 
•v«2 droit a un numero qua- 
druple, rtservei-i* dts main- 
la nan t ch*z votra charculier 
Parutlon 1c 2 Aoul. 



10 RE* •»»••••»»»•• 






2o REM • • 






30 BEN » BtBERT • 






«0 REH • • 






SO REM t par • 






l-Q REM * • 






70 REM • J.CAOUIH • 






SO REH * * 






«o rem anaifiMH 






HO &EF1NTA-Z 






120 CIEAR10O0 






130 ST-l:TT-10O:BO-0 


sc-0:ni-i: 


■T» 


O!CH-0:CB>0 






140 COC0R1O, 1, 1 






ISO SCBEENI .2,0 






l&O LOCATE*. )0:RRINT 


VEUILLEZ PAT I 


ENTER* 






J BO REM REOCF.CARACTERES 




200 FDRJ>384T04&3 






210 RE ADA 






220 WPCKEI.A 






230 NEXT 






240 PORI-S20T0727 






330 REACA 






2*0 VROKE t , a 






270 NEXT 






2»0 1D-I023 






3O0 COR:-1T08 












320 REAOA 






330 VPOKEAO.A 






340 NEXT 






330 *D-*0«36 






3*0 I F AD-1 9 1 VTHCN390 






370 S0TO300 












390 REM OEF. SPRITES 






410 DIMASI321 






420 '0»N-1T0*J2 






430 FORI-1T08 






440 READX 






430 A«IKI.«I".|.'.-B1 






4*0 NEXT I 






470 NEXTN 






460 GPRITE4IOI-A4I1) 


A*12)*A«(3 


*A 








490 5RR1 --.» ■:-.■..■- . 


A«I«)*A*<7 


• A 


• (8) 






300 SPRITE4<21**«I9) 


A«U0t*A*( 


11 


*ABI12) 






310 SPRITE4<3I-ABII3 


•MII4) »A> 


13 








320 SPRITE*(4)-**I17 


•MIJSI4M 


19 


;*A*I20I 






330 SPRITE«OI-A«<2l 


•A«I72I*A* 


73 








340 SPRITE*IA)>A*I23 


•A* 12*1 *A* 


27 



J .A* (28 1 








330 SPRITE*<7 








• .A»l32l 








3*0 SPRHEaie 


-A* I 331 


•A* 134) 


*A«T33 


i IMIUI 








370 SPRlTEf><9 


• A* 1 37) 


• A* I 38 ) 


• Af>!39 



1 •A*(40) 

380 SPRITE*1101-A*141I>A*[42) >A«I4 

3) *A4I441 

390 SPRlTEaill I-AB(43>.AB[46).A«I4 

7)*A*(48) 

60O SPR I TE» 1 121 -A* 1 49 1 • A* 1 30 1 *A» ( 3 

1) •A*t32l 

«10 REM ----« — ---------- 

«20 REM DATAS CARACTERES 

630 RE" - — — 

640 DATA] 12, 136, 136,0,136,136,112, 



630 DATAO, 8, 8,0,8,8,0,0. 

660 DA7A1 12,8,8, 112, 128, 128, 112,0 

670 DATA112, 8, 8, 112,8,8,112,0 

680 DATAO, 136, 136, 112,8,8,0,0 

690 DATA! 12, 128, 128, 112,8,8,112,0 

700 DATAU2, 128,128,112,136, 136.11 

2,0 

710 DATAl 12,8,6,0,8,8,0,0 

720 0ATA1 12,136, 136. 1 1 2, 136. 136, 1 1 

730 DATA112.136, 134, 112,8,8, 112.0 

740 DATA12*,*8,*8, 124, 196, 196, 19*. 

O 

730 DATA248,200,200,232, 196, 196,23 

2,0 

760 DATA232, 140, 128, 128, 128, 140, 23 

2,0 

770 DATA24a,196, 19*, 19s, 19*. 19*, 24 

8,0 

780 DATA252. 128, 128,248, 192,192,23 

2,0 

790 DATA232, 192, 192.1 20, *4,«4,*4,0 

SOO DATA248.13*, 128, I 2B. 136,140,23 

2,0 

810 DATA132, 132.132,232. 19*. 196, 19 

6,0 

820 DATA36, 36, 16, 16, 16,36,36,0 

830 DATA12, 12, 12, 12, 12, 140, 732,0 

840 OATA204,200,208,232,204, 2O4.20 

830 DATA64,*4,64, 192, 192, 192,737,0 

•60 DATA 147 ,222, 166,134,134,134,13 

4,0 

870 DATA204, 172, 136, 140, 140, 140, 14 

0,0 

8*0 DATA232. 132, 132.132.132,132,29 

2,0 

890 DATA232.132, 132,232,192, 192, 19 

2.0 

900 DATA248.136, 136.136, 136, 140,23 

7,0 

910 DATA248, 134, I 3*. 232, 204,204,20 

4,0 

920 DATA7S7, 132, 128,332,4,196,232, 



,140,23 
2,0 

930 DATA19*. 17*, 196, 19*. 200, 208, 22 
4,0 
960 DATA2ie,218,218, 146, 144, I**, 23 

970 DATA132, 132,72,48,72,204,204,0 
980 OAT A 132, 132, 132,72,48,48,48,0 
990 DATA248.8, 16, 32,*4, 140, 232,0 
10O0 REM «»—•-—--—- 
1010 REM DATAS CUBES 
1020 REM ............. 

1030 DATA233, 127, *3, 31, 13,7,3, 1 

1040 DATA233. 234, 232.746, 240, 224,! 

92, 128 

1030 DATA233, 127,63,31, 13,7,3, 1 

1060 DATA233, 234, 232, 248,240, 224, 

92 , 1 28 

1070 DATA233. 127, *3, 31, 13,7,3,1 

1080 DATA233,234,232,248,240,224, 

92, 128 

1090 DATA233, 127,63.31.13,7,3, I 

1 100 JATA233 , 234 , 232 , 248 , 240, 224 , , 

92, 128 

1110 0ATA233, 127,63.31,13,7,3,1 

1120 DATA233, 234, 233, 248,240,224,: 

92 , 1 28 

1130 DATA233, 127,63.31,13.7,3,1 

1140 OATA233,234 > 232,24B,240,224. : 

92,128 

1130 DATA233, 127,63,31.13,7,3,1 

1 1*0 DATA233, 234, 232, 248, 740, 224, 1 

92.128 

1170 REM —-.---.. — — . 

11B0 REM DATA* SPRITES 

1190 ASM -——-———— 

1700 REH MBERT DR01TE 

1310 OAT AI 3, 31, 63. 97, 173, 123, 177,6 

3,63,31,8,4,2,4,24.14 

1220 DATAO, 128, 192, 32, 9a, 9*. 198, 12 

1,107, 139, 142,64,32.64, 192,112 

1230 REM »Hl»I GAUCHE 

1240 OATAO, 1,3, 4,*,*, 99, 138,221.21 

7.113,2,4,2,3. 14 

1290 DATA240,248,232, 136,222.222,2 

34,232,232,248,16,32,64.32,24,112 

1260 REM lilt. IE 

1270 DAT A3, 13,63, 113, 110,238,293,2 

31, 123,63, 14,31, *0, 112, 192,0,224,2 

48, 180, 182, 182,213,213,213,234,214 

,232,240,0,0,0,0 

1280 REM EXPLOSION 

1290 DATAS, 32, 10,0,37, 13*, 34, 13,84 

,2,8,4, 17,2,72,3,0,4, 160,72.7,80.4 

,89, 162, 136,2,64,36,0,64,40 

1300 DATA1, 16,0,2,0,16,3,64,B,0,2, 

16. 0.0, 8, 0,0,0, 14,0,49,0, 14. 44, 0,4 

.32,0,8, I2B.0.O 

1310 REM OUEUE CERISE 

1320 OATAO, O. 1,63,1,1, 1,2,2,4, 100, 



lOO, 0,0,0, 0,0, 3«, 224, 126,64,32,32, 

16, 16, 16, I*. 0,32,0,0,0 

1330 REN CERISE 

1340 OATAO. 0,0.0,0,0, 0,0, 96, 124,1 2 

*. 126, 126, 126,40, 0,0, 0,0,0,0,0,0,0 

.0,28,62, 126, 12*, 126, *2, 28 

1390 REM SERPENT 

1360 DATA1, 7, 30.36,48,49, 27, 28, 19, 

19,96,31,13,24, 14,3,248,236.60,24, 

0, 224, 248,3*, 240, 200,28, 248, 192, 12 

,114, 192 

1370 REM POIRE 

1380 DATAO. 0,0, 1,3, 3, 7, 7, IS. 13.27, 

23,23,13,7,3,0,0,0,192,224,224,224 

•224,240,248,248,248, 248,248,240,2 



,0,0, 0,48, 94, 128, 0,0, 0,0, 0,0, 0,0,0 

,0,O,0,0 

1410 REM CITRON 

1420 DATAO, 0,0, 3, 7, 13,27,113,233, 1 

27,31.13,7,3,0,0,0,0,0, 192,224,240 



HAP 



Depechez-vous de decouvrir la sortie dune 
terne, avant de regaler le monstre qui 1'habite 





,o 




1-130 


REM SANAME 


1440 


DATAO.0,0,0,0,36, 60,60,30, 31, 








i «ag 


REM BUEUE BANANE 










,3,1 

i •' PC 
L4M 
I.4VQ 
LSOO 


16, O 


REM TRAJET SERPENT 


DATAO, 16,8, 16,8, 16,8, -16,8, 16 


8.-16,8,16,-8,-16,-8,-16.-8,-16,-8 


• -16 


-e.ia,e,i6,>e, -16,-e, 16,-8,-t 


1910 








• -1* 




1920 




,16, 8, -16, 8, 16, 8, -16, -8,-1*, -8. -16 


IS40 


REM PRESENTATION 


l->*>0 




IBM 


COLOR 10 


1370 


VPOKE8I98, 129 


1 MC 


VP0KE8I99,129 


IBM 


VP0HE82OB.21 


1600 


VP0KE82O9.21 


IftIO 


VP0KE821O.63 


i e- M 


VP0KEV211, 113 


1 A M 


VP0KE8212,69 


1*4)0 


VP0KE8213.87 


1630 


VP0KE8214.94 


IMS 


VP0KES2I3, 117 


1*79 


vpokc8216,22 Suite page 7 






TI99 BASIC ETENDU , 



David PONTIER 



.11/ M ii(|iii - i _^ ytr 1/ /m\, 



10 GOTO 4S0 II CALL CHAR ti CALL CHARPAT 
i i CALL CHARSET t i CALL COLOR I : CALL D 
ELSPRITE :: CALL HCHAR ;: CALL MAGNIFY I 
I CALL MOTION n CALL PATTERN 11 CALL SO 
UND ii CALL SPRITE :i CALL VCHAR 
20 DIM C(3.3)fl AX.AY.NX,NY.A.A».8.D.E. I 
, <r , M . F-: . S . X . Y . 2 

30 DATA 99.97,0.101,100,96.101,0.0,97,98 
, 100.99,0.97.76 
40 'AP- 

SO DATA 262.247,262.349.262.220.220,208, 
220.262.220. 175 

60 DATA I 10.44.370< 147.294,0. 147.294,0, 1 
63.294,330, 1S3.37.392. 1 $7. 44, O, 183. 44. 0, 
163.44,0. 1 10.37, 147.494,0. 147.494,0 
70 DATA 163.494,0.183,440.147.494.440,11 
0.494.334. 110.3B7.659, 147.74 
80 DATA 0,147,0.163.0.165.387,440,196.36 
7.0. IBS. 0, 165.0,147.44,370. 139. 44,0, 1 10, 
0, 123,0, 139.33,370 

90 DATA 3.14,6,3,13,3.7,14,6,9,16,5,11,1 
4.3, 13,13,3. 13. 14.3. 17. 12. 10. 19. 12,10,-3 
,&. 19,-3.9. IB 

100 DATA -3,12.14,-3,21,14,-3.19,3,-7,14 
,3,-1 1, 19,3.-3,24, 16,-3,27, 10, 16,-16. ISO 
HO DATA 3,3,10,3,16,2.3.21,8,3,7,6,3,14 
.6.4, 14, 1.5,23,6,7, 12, 11,7,26,3,9, 12.9.7 
,26,1, 10,3,6 

120 DATA 11,14.3.12,3,8,14,3.4,14.12,3,1 
4, IB, 3. 14,24.3, 16,3, 10, 16, 18,3. 16,26,2. 1 
B, 7,6, 18, 16,3 

130 DATA 18.24.3,20,3,6,20.16,3,20,22,7, 
21.16, 1,-4,3,3,-17,3,3,-6,7,2.-7, 10,3,-1 
3. 10,3.-10,12,2 



140 DATA -19.12,2,-12,14.2,-17,14,4,-13, 

16,4,-12, IB, 2, -2, 19,3,-10,20,3,-19.20.2. 

-4,21.2,-9,22.6 

130 DATA -17.22,3,-7.24,6,-13,24,3,-10,2 

6,4. -1 1,28.9,6.-8,273 

160 DATA 3,13,2.3,9.6.3.16,5.3,24.4,6,5, 

3,6. 19, 1,7.9, 1. 7, 11.2,7. 14,2,7,24,3,6,4, 

4,8, 18, 1 

170 DATA 8,20,3,9,7,4,9,12.3,9,16,1,9,22 

,3,9,26.3. 11,9,4, 1 I , 14, 1, 10, 19,2. I 1,20.3 

,11.24,3 

ISO DATA 1 1,28, 2, B, 14, 1, 12, 17,2, 13.3,3, 1 

3,18,2, 13,21,3, 13,23,4. 14. 13,2, 14,28, 1, 1 

5,4,2, 13, 16,3 

190 DATA 13,20.7,16,11,4,16,26,1,16,28,2 

, 17, 3, 3, 17, 14, 3. 17. 18, 3, 17, 24, 1. 18, 11,2. 

18,24,3, 19, 14, 1 

200 DATA 19.16,3,20,9,6,20,22,3,21,16,1, 

-3,3,3,-2,7,3,-10,3,3,-18,3,3,-10,7,2,-1 

4,7,3,-19,7,3 

210 DATA -3.9,2,-13,9.5.-2.11.2,-13,11,3 

,-13, 13,2,-2, 16,3.-11, 15.3.-7. 17,5.-2, 10 

,2,-20, 18,2 

220 DATA -3.20.2.-18,20.3,-2,22,2,-3.22, 

3, - 17, 22, 3, -3, 24;2, -2, 26, 2, -19, 26, 3, -3, 2 

8.6.-ltl,2B.3 

230 DATA 6.-17.131,3.10.2.3,13.3,3.23.2, 

3, 10.2.5,23,2,3, 13,3,3. 19,3,7. 12,2,7, 13, 

3,7,21.2 

240 DATA 9.12.2.9.17.3,9,21.2.11.10,2,11 

, 13,3, 11, 19,3. 1 1,23.2, 13, 10,2, 13. 15.3. 13 

.8,14 
230 DATA -7.10,3,-3,13,3,-11,13,3,-7,13, 
3,-7, 19,3,-7,24,3,-3,17,3,-11, 17,3,-3,21 



.3,-11,21,3 

260 DATA -2,26.14,-17,16,3,-17,18,3,21,1 

6. 1,21. 18, 1, 15,8,9, 13, 18,9,8,-17, 100,9. - 

9,500 

270 DATA 3,5,4.3,12,2.3.13,7,3,23.2,3,7, 

2,5.10,3,3,14,2,4,21. 1,6.15,1,6,22.4,7.1 

3,1,8,13.4 

280 DATA 8.20,6,9,3,3,10,7,4,10.12,3,10, 

16, 10, 12,7,7, 12,17,3. 13, IS. 1, 14.3, 4. 14. 1 

2,3, 14,20,2 

290 DATA 14,26,3,16,3.4,13,16.1,15.20.1, 

16,22. 1,16, 2B, 2, I B, 4, 3. 18, 10, 3. 17.16, 1. 1 

8, 16,3, 17,20,4 

300 DATA 17,23,2,18,26.4,19.8,1,20.3,8.2 

0, 16.3,20,26.3,21. 16, 1. 17,0. 1,-4.3,4,-11 

,5,3,-6,7,3 

310 DATA -7,9,2,-2,10,3.-14,10,3,-6,11.3 

, -13, 12, 2, -12, 13, 2, -16. 14, 2. -19, 14, 2, -4, 

17,3,-8, 18,2 

320 DATA -13, IB. 2,-5, 19.2, -4,20, 2, -li, 20 

,3,-11,21,2,-19,22,3,-2,23,3,-12,23,3,-1 

4,24.2.-4,23.2 

330 DATA -11,23,2.-12,26,4,-19,24,2.-3,2 

7,6,-3.28.3.-10.28,3, 11,-13,246 

340 DATA 2,7.9,2.17.11.4,9.9,4,19,10.6,1 

1.3,6,21,6,8.3.3,8,23,2. 10,4,2. 10,9,3 

330 DATA 10,21,2,11,26,4,12,9,3,12,11,5, 

12. 19,3. 13,23, 4, 14.4,2, 14. 13, 10, 16,3,3. 1 

':. I 2, '■■. 16. 17.4 

360 DATA 17,23,4,10,7,3.18,13,6,20,3.3,2 

0,9,3,20, 13,6.13.26,4.-3.3,3.-17,3.2,-3. 

7.4.-9,7,7 

Suite page 22 



Out. pftjs qu'unt semame *v*-: 
les vacanees Cavama ?**•> du 
bfen de racial m moto nra -?- 
h n Encora qw .■? - flm pta 
W to rns nt ne nan fate, meme en 
vacanoss. le genre parasot. 
chaise ptante. sac* chaud et je 
bouge plus pendant quatre se- 
maines. Cast pas mon true 
ewe ca bouge. que ca vs.te. que 
ca s'exiasie suf de nouveaux 
paysages, que ca trouve de 
nouveies sensations pour las 
yeux. les oreiles. Je gosier et le 
ventre. Pour abondar dans ce 
gerve. un seuJ moyen : la mc40- 
On peut voyager loin sans ma- 
nager sa monture. aMer de 
I'avant quand les autres sta- 
gnant, volar du lamps aux em- 
bouletnages. respirer quand las 
autos etouftenl et contmuer a 
router quand eHes deviennent 
ptetons fattgues. 

Ca ma tart quelque cnose 
d abandonner ma vieiHe Kawa 
au marchand. les tolometres que 
nous avons avaies ensemble 
creen: des liens qua les aulomo- 
biitstes ne souoconnent pas. 
Mais cest la lot. comme les 
vieux indiens vont mounr sur la 
momagne. elle a rejevnt le We- 
laitah des mecaniques a deux 
roues, stoique et d>gne. 
Et ma nouvelle oompagne. una 
Honda, est entree dans ma vie. 
Bnllante. chaude. elle ronron- 
nait, edipsani de sa virqinale 
beaute tous les simples vfihicu- 
les qui I'entouraient devant le 
magasm du moionste. Cest 
d'un demdre emu que ie lis 
connaissance avec sa sella 
confortabie. }e lui toumais dou- 
cement la poignee droilo et. 
dans un accord parlait. nous 
nous eiancames sur les paves 
bnllants de la cnaussee humide. 
Feerique I 

Zuiiiiiiiiiniiip ! (bruit de dechan- 
tage profond.) 

Le vendeur de moto est un en- 
foiro. un tils de pute qui ma 
vendu uno bocane avec un de- 
taut de fabrication ! A moi ! Cor- 
baau, il s'appelle Corbeau. lo 
charognard. 11 exerce sos activi- 
tes bassement mercantiles a 
Paris sans autre but que lo pil- 
lage systemntlque des porte- 
te in tics dos pauvres pigeons qui 
ont le mallieuf do penetror dans 
son anlre. La Honda neuvo qu'il 
ma refile guldonne comme e'est 
pas possible, les leenques 
pavos humldes ont fallli me tuer, 
inconduislble. dangereuse pour 
moi ot pour les autros I Trols so- 
mnines qu'il essaie do la ropa- 
rer et qu'il n'y arrive pas. Trois 
semaines qu'il essaie en vain de 
(aire croire qui! sait par quel 
bout utilisor un tournevis I Trois 
semaines qu'il refuse de me re- 
prendre celte moto neuve avec 
ce putain de defaul de fabrica- 
tion I Mais qu'est-ce quo je suis 
venu (aire chez lul ? Pourquoi a- 
t-ilfallu que je vlenne me faire 
arnaqtier che? co connard ? II 
etail tout a cote du journal ? La 
belle affaire, je ne pouvais pas 
alter chez Murlt, lo vondeur de 
moto qui a une ame ? Ouel con, 
mais quel con, je me mettraio 
dos bntfos AH02. tant pis, je 
vais voir Murit, il va m'eiranuc 
ca, apres tout, ca 'ait cinq motos 
que Jo lui achete ,., 
Ceffe histoiro est authentique : 
L incompetent Corbeau qui va 
jusqu'a trafiquer la goomotrie 
des tourchos do motos nouves 
sevit au 10. rue Achilla Martinet 
a Paris dans le dix-huitiemo ar- 
rondissomont, n 'y mottez pas 
les piods, vous nsquez voire 
peau. Murit, ancien courour de 
50 balais, ma arrange le coup 
en dix minutes. Cest un bon, il 
est au 8, rue Fremicourt a Parts 
dans le quimieme. Allez-y de 
ma part, il vous fern un pnx sur 
Honda, Kawa, Susuki ot Yam. 
La moto vous inditforo ? Vous 
n'en avez rien a clrer ? Lisoz 
ledito de la semaine prochaine, 
cest lo special dto Quadruple, il 
vous codtera trente balles et j'y 
cause de camions. 
Gerard CECCAIDI. vleux mo- 
tard quo j'almais. 



RECORD DE PLANTAGE 
BATTU LA SEMAINE DER- 
NIERE 

Le programme Texas basic 
Etendu de la semaine d»r- 
nitre avalt un lager petit pro- 
bltme : c'etnlt le Hating d'un 
programme Hector I On eat 
cona. heln ? Squlouzo-nous. 
Cette semaine. pour nous 
falte pardonnor, on vou.i 
passe deux programme* Tt 



TOD 






L'univers de TOD a si mauvaise reputation, que seul 
un inconscient oserait s'y risquer... 

N et S DANIGO 



suite duN 92 



1199 IN-IriT- m-FHD- l >»30-19> 

. ■■ 

a ■■. 

ItFHVO.VvTP'l -i 

1196 PP[NT"«/OUS ShUVE." 
tJOO rP[NT'«M«r<H.<P LE MOMENT..." 
L2I© IH-1NT : 
IT03166 

■ 1? 

179.23 PftIHT"B" 

.-._■ iFim »KW.viii: l AVE 



KW NEXT 
■ :■,:■ RND< 1 ■»,'■ 
■ 

32c-<o petupm 

nee PCKE3S8?6-a» print- wbmil en 

RDAIT UN i 

- 

rse fpint-h*«e • i 

: ►! 
.OJ© Fi>L- . . " 14066 HEX? 

3350 PETUPM 

3366 PR1HT-M6f/0US ETES WW 
-I'Jf-MMM.'NE 3ALLE P'- 
n 'MOTVWES.flCtCTEZ- 11 
n IMWOUS OUELCKJE" 

1*11 

. ■ . ' im o-'ji ou ■>.■ 

rCH344fl 
3438 RETURN 

■>' - MULES*" 

3436 St« : >' -E : E£ 266" 
.:■:•" I ""HftSSE D f-pme 406" 

34?e :i .--rx-ue elfioue se©- 

= "ftNr€fiU MflOIOUE 2000- 

3490 PRIMTS*<1 ■ S*(2>. . .■:■( 3>, 

$t<4 ■ 
::O0 F-PIlU-iWWF-ICHEi'SE - PIC 
3519 INPUT"*, 2, 3 Oil 4" I 
3323 Ft-RIGHT* S»« I 
3539 IFVhL'P»>. PKTH£NPFlHT"»»»MWi 

. . ; - xw*0T0ieee next petu 



RIC=PIC-VHL'P*> 
Xxf.CN' ■*■ I 

Ei^L^FTt.';). 1 1 .:■', 

FO-IMT' FG»' I+I/5>> 

RETURN 

REM POTIONS 

PPIHT-IMLES PORTES SE" 

PPIHT-lt^FEIWENT.SL* Ul€" 

PPlMT"iWi7ftSL£ 2 FIOLES." 

print-imociisissez • 
print "»m«9 ou *- 

I-.-PUT-'iMFLQRS-.S* 
I-:nT«PNB<J>*5) 



36 re 

3ceo 

KM 



3730 
3748 

375© 
3 7^0 

37 ?e 

3766 

3790 



3820 
3330 
3940 
! ■ 
3666 
3*70 
3880 
3890 
3986 
3910 
: 926 

.■ : •:■ 

3-340 

y?zo 

3960 
#76 
398© 
3996 



4130© 1FITHENPPINT"P»H 

'■ FOPI=0TO3008 NEXT RETURN 

461© PRINT" IMWOUS EXES TOPIBE" 

402© PRINT "l»IDfiNS UME TRAPPE." 

-1030 FOPI=0TO3©00'NEXT 

4©4© PRINT PPIHT"IMWOTRE CHUTE V 

DOS" 

4956 PRINT "lOENTPfUNE IjfiNS" 

406© Ft?INT"l»LES PIEFiHDPES DES" 

407© PRINT "(Mr ATACC'MEES !" 

408© FORI-8T03O0© NEXT 

4030 £=£-INT(RND(l>*6+5> 

4100 IFBC1THENB-2 

4110 F0PI=2+IHT(RMD'l,i*6U019 

4128 IFh*(I.B)=" "THEKft=I 1^19 

413© NEXT 

4146 B-B-l 

4156 RETURN 

4150 PPINT"»»EALLE RU TRESOR!" 

4170 FORi-erDaaee next 

4130 PRlNT'TKra*" P0HE36379,93 POK 

£36376,20© 

4150 PPIHT"VOTPE DECOUVERTE AW * 

420© PPINT-UHE VfltEUR "■ 

421© C-OT03310 

4226 REM 

4238 REM* PERSGHNRGEI 

4240 REM 

425© P0KE368r?,3'PRINT"<r 



PRINT"!? 

0NIGOT03698. 3758: 3820. 3910 
PRINT" VOS FORCES VOUS" 

PP1HT"M3UITTEHT.V0US" 

PRINT-SDEVPIEJ PERDPE" 

PPINT-STOUT ESPOlfi" 

FO=IMT(F0-RND< t)i30-4Q) 

0OTO3986 

PRINT "CIWUVHHl PftP Iff 

PRINT"*PUIS5ANCES.V0TRE" 

RP]NT"«$PRIT ACOUIEPT" 

PPINT"«JNE NOUVELLE" 

PPINT"SDIMENSION..." 

3M-iM>lO8*INT<RNDa>»20> 

0QT03938 

PPINT--W/OTRE ROE EVOLUE" 

I = INT'.RND' I >«2) 

If ITHEN3866 

PRJNT-iWOUS VIEIUL1SSEZ" 

V-V*1NT(RnD<»>«0)*5 

0OT0395O 

PRIHT'-tWWOUS PflJEUNISSEZ" 

V"V-IHT(PN0(l)*35)-6 

OOT09956 

PRINT "IDLES DIEW SONT NVEC" 

PR1NT"«WOU$.L'ENEROIE RFFLUE" 

PPINT-'iffiflNS VOTRE CORPS." 

P0»INT(F0*PHD< 1 >»4©+10) 

FOPI"0TO5OOO NEXT 

RETURN 

REM TPPiPPES 

I-INT(PHTJ(I>»2) 

IFITHENPRINT-ltWSRLLE VICE !! 




VIC 20 



ATTENTION. ATTENTION 

Pour le molt a" sou! vou* 
■v» droit A un numiro qua- 
drupl*, r*»«rv«?-l« d*» msin- 
tennnt cr>«z volro chircutler. 
Partition I* 2 Aoiit. 



l'irtaftJSO'Et<c£ 

- Of fg-ffWi 




4266 PftlNT'QUEL C'-T VOTPE MOM '" 
42 '•'.' UK UTNI PRINTTT 
4280 I'llll !■-. 

■i. ■■■ iii .--pon HUMmir 
■i. oo rt-j .--"MRIJVHI3 mjrifiiir 

4310 It- 3 '""BOH GOUJM- 

4:^0 jt' -i - = "rihUVAri oolum" 

4330 Bt<S)""B0N HftlN" 

4340 Bt':S; = "J1fi'J7NlS MRIN- 

4350 FO-lNT'.PNUa ■♦4O*120> 

4360 IH=IHT'PN[kij»40*128) 

4370 PIC"200 C-20 D»-C 

4330 PTV»INT<RND<1)»30*5O> 

4330 PRINT"CP£E2 VOTPE PEP 30NMR0E ■' 

4400 FORI-0TO1O0© NEXT 

4410 PR1NT"H*PDM11 ",E»'l) 

4420 PRINT 

4430 PRINT"HS6 ",B*<2y 

4440 PRINT 

4430 PRINT"ilK?6 ".B*<3) 

4460 PRINT 

4470 RRINT"IW4i "l2t<.4> 

4430 PRINT 

4430 PRINT "MSBI "-S*<5) 

4500 PRINT 

4310 PRINT'lMSi ";B*(6> 

4320 PRINT INPUT"CHOIX"-H 

4330 IFH>60RH<0THEN4520 

4540 IFHs20PH=40PH=6ThENC«-C D=-D 

4550 IN»IN»C'F0=F0*rj c=8 D-C 

4360 PRINT'Tja" 

4570 PRlNT"»»ir;H* 

45i'0 PRINT -pRIHTBtCH^ 

4^90 PRINT PRINT-PICHE18E ■ ";PIC 

46O0 PRINT PPINT-3PCE88E "IN 

461© PRINT PRINT'TORCE ■ ";F0 

462© PRINT PRINT-POINTS DE VIE 

;PTV 

4630 PRINT"lWaM»l3 Fl i" 

4640 GETS* IFS*=""THEH4640 

4650 IFFtSC ■/it J '., 1 33THENRETURN 

4660 PRINT'TJ" 

4679 PRINT-rn* 

4600 PRINT PRINT "SCIENCES IIWIOUES 

"-SM 
4650 PRINT PRIHT"EQOIPEMENT «" P 
RINTEI 

4700 PRINT"MCSI VOS FORCES " 
471© PRINT PRIHT"MEHTRLES COHJOGUE 
ES" 

472© PRINT PRINT-HTTEIGNEHT 2S0." 
4730 PRINT PRINT RPINT'XONSULTEZ V 
OTPE" 
4740 PRINT PPINT-POSITIOH fl L^RIDE 

475© PRINT PRINT-DE 3 PI ■>-;" »E 

TURN" 

4760 GETS* IFSI=""THEN4760 

4770 IFRSC ' i ti ':, 1 33THEMRETURN 

4730 IFSM*UK250THENP£TURN 

•1750 PPINT"T- 

4960 8n»lNT<S»V2> lN«INTCINy2.5J 

4810 IFe>lOTHEH««=10 



320 IFE3-10THENFP [NT "►•»»» WT; Ot'T! 



■■':■»■] -20TOISTEP-1 
4646 F0RX-1T026 
4656 fpinTmI' ;■:■ IMi' . P0KE36877< 136 

4860 IFX-flfiNDI-I'MiNENff INT "IN" - 

4870 po*e36'377.0 fof'h'otot next ne 

:-:t 



EE." 

4500 FORI "6105666 NEXT 

4510 (1-0 

452© RETURN 

433© PRINT'*" P0KE36679.59 P0KE36 

375. 2©5 

4940 PRlHT"J6V0O3 ETE9 ftFRIVE ft Lfi" 

4950 PRINT" fl&EPNIEPE SftLLE. " 

496© FF'INT"l»M»»WrTOWW 

4970 PRINT-VH S'OCCUPEfi DE VOUS." 

4930 FOPI=0T0400O NEXT PPINT"T PO 

s-E 36374, 285 

499© f'PINT"mP0I5 GOI'ELETS." 

5000 PPINT"«SOU: L-'Jit D EUX-LFi" 

5010 PRINT-JKLEF DES POPTES DU" 

5020 PPINT"«:HNTEFHJ.Jir 

503© FOPI=0TO4OO0 NEXT ■ PRINT'S" PO 

KE36374,0 POKE36375.0 

5040 S*"" " Dr="l r 

3050 PRINTS*;" -;S»)" "-Sf 

5060 PPINTD*." ".5*." ";D» 

3070 PRiNTDt;- •;»;■ ";d* 

5030 PRINTDfi " "^D*;" "-Dt 

5090 prints*;" ".d*," ";d* 
510© print" !■;■ ■;■ 2";" 

i" 3" 

5110 INPUT"«CMOIX",I 

5126 I«INTi;RND(n*3> 

5130 ONIOOTO3190.3130 

5140 S*- n Or-r" 

5130 PRINT''r*D>DliaiW5iWfi«IW''SI 

•J160 PRINT"IDM»WOUS SURVIVED CETIL 

5170 PRINT-IF0IS-C1." 

3168 FORI»0TO4008 NEXT 0OTOI620 

5190 PRINT'TMIWELh: PfiS DE CHfiNCE. 

528© FOPI-OTO3000:NEXT 
3210 PRINT'TJ", "JWfVOTPE EF:I:EUR Vil" 
522© PRINT"»/OUS COUTER CHER..." 
5230 PRINT"XTTOD VOUS RENVOI E DRNC" 
5248 PR1NT"A.E CHRTERUI" 
5230 FORI-0TO4OOO NEXT D^B-5 OOSUB 
4830 ■ NEXTV 

526© P£M 

5270 RErt*IN$TPUCTIONSf 

5290 REM 

5230 C-03UB5720 

9366 PRINT"VOUS ENTREZ DANS" 

5310 PR I NT "JO. 'UN I VERS DE" 

5320 PRINr'nuDWHtrM -T- r-n r^ 

5330 PRINT"I»»I3I I I I I I " 



334© PPINT-lfttlJ I J I I 

3330 PPINT"t#»»ia I t I I 
5360 PRINT "ItiW* I I I I 
3370 PRINT"IMHa 1 l — - 

3350 PRINT "I666I 

5390 PRINT -46f£FLECHISSE2 



■ . 

5400 PRINT "MPOUVEZ ENCORE FtflR ' 

5410 D0SUKS766 

5420 PPINT-MHHKiWTPOf' Tftpfi..,- 

5430 FORI-OTO10O© NEXT 

5440 0OSUS5726 

5450 P0K636879-42 

5468 F0R1-178T0123STEP-I ■ 

• I 

547© PORX-0TO26 HE 



3430 G0SUF372© 

3490 PRINT-LE3 So" SONT DES" 

5500 PRINT" I6ALLES OU 'vtlUS" 

3510 PRINT" If CH/'.'EZ PENETPEP..." 

5520 PRINT *tt-ORS DE VOS COMBATS" 

5530 F'PINT-<JV01 DEtl-IO'l- '.EFONT" 

3540 PPINT"JIFONCTirjN DE" 

5550 PPINT-U/OS DIVEF; r-X VOIFi" 

5560 PPIin-mENlcr K SORTIR EN" 

5570 PRINT'itVOUS DIRIGErtlT MJ ItfjPB 

3530 PPINT"«a».*L TOD SOU 

5550 POKE36876.0 OOSUK 
5600 FORI»OT04000 HEX! 

3610 G0SIJB5720 

5620 FCP1-OTQ1000 IIE/IT 

5630 PRINT-BIRICEZ VOUS flVEC' 

5646 PRINT" «»-■ CGflUCHE>","atl (HR 

UT>" 

5630 PRlNT"fl3CP':R CCHS ■ i: . - 

CPSR DPT 'DROITE'" 

5660 PPINT"«v'OTPE SURVIE LIT LIEL" 

5670 PPINT"«i V0'3 PChCI 1' II 

5688 PRINT"*fi>TTROUE", , '<F iUITE", 

,"<N>ECOCIftTIONS" 

3630 PPINT-Ha Fl • CON/ . 

PPINT-iEN COURS DE JEU" 
5700 G0SUD57.M1 
5710 G0T01S6 
572© P0KE36879.3 
5730 PRINT -TW" 
5740 P0t:E-:6S65. 155 Fut i . . 
5750 RETURN 

376© FORI = I50T038STEP*I PQKGXQ63, 
I F0KE36376-2O0 P0( 'E 36875. I.V 
5770 F0RX=OT050 NEXT/M P0> L :--;'3.'5 ■ 
OPOKE36376-0 
5780 PETURtl 

5790 PRINT"S4" PPIHT"IMHW*.'©U5 II 
RVE2 PAS " 

5S0O PRINT"tt»L'AOE DE CES JEUX." 
5St© PRINT-ltULAICSEr LA PLACE " 
5820 PRINT"IWmuX PLUS AGES ..." 
533© F0RI-0T05000 NEXT _ 

394© PUN 120 • 



BOUFY 



THOMSON T07, T07 70, MOS 



Aidez BOUFY le serpent vorace, a s'empiffrer de 
pommes disseminees dans quelques vingt labyrin- 
Ihes. 

Ronan MERIEN 

Mode d'emploi : 

Las possesseurs de M05 devronl en ligne 0. remplacer POKE S 
H6073.1 par POKE & H201A. PEEK{& H201A)OR8 . Les regies 
sort incluses. 



© &EFmTft-2iCLS:SCPEEl*2,8,e:&TTPB8,8:L0C 
t-TE3,©,©:CLEPP395.,78:OEFCPI<8)=60, 126,2 
:'-. 133,255, 133, 135. 126: DI = li DIM SSa8^,H 

i»(ie>/r>f<2e)iPORi»iToiets&ci}"ie0iNNf<i 

■ = " 'iMEXTiOKEPPOP 

■ -■,:■-..-: i-;.:---. 
; JJ* = '&0O0«PEPEtr(IFf.FO»50301LfiL&»5I- 

2 ^EFQP* '4 1, =8, 63, 127, 11 2, 56, 39, 163, 183: 
OEFCRf<42J«0 / 255,255,8,«/255,253,0(OEFCR 
*'41>=9,252,254,14,6, I93,239,238:[>EFCR*' 
«4,sl02, 182.132, 182, 182,182,182, I82:DEFC 
P»'45> = 239,238, 199.6, 14, 254, 252. 8: C-EFCP* 
'46>-183, 183,99,96, 112, 127,63,8 

Z DEPGRti 4 1,-9,63. 127, 112,96,99, 183, 183: 
DEF- J p*'42j=e,235,255,3,9,255,255,8:r J EFCP 
*' 43, =3, 252, 254, 14, 6, 159, 238, 230: OEFCR*' 
44 ,- = 182, 132, 182, 18?, 182, 182, 182, 182: OEFG 
P»- 45) -238, 239, 193,6, 14, 254, 232. 8:&EFCR* 
'46 =183,133,59,96,112, 127,63,9 
4 :.EF3P*'4, = 9, 16, 193,254,254,234,254, 183 
iDEFGR*Ca>-153, 126, 126,98, 126,36, 126, 153 
:|:.EFCPt'6>=24,I26, 126,255,255,126,126,24 
:ryEFCP»'7..=24, 126,255,153, 126,68,24,24 
! rvEFCP*'49/= 24,63.69,182,182,182,182,1 
:ik:lZ?-r,V*i 58, =8. 31, 127,224,224,127,31,0: 
»EFCR«C9I ■8,243,234, 7, 7, 234, 248, 0:OEFCR 
*' 32) -192, 182, 192, 182,182,68,68,24 
6 DEFfiPf '43>-24,126, 182, 193, 193, 102,126, 
24 : DEFER*' 3>=0, 168.74,74,183,42, 168,8 
T DEFGP*'53)-8,127, 127,96,96, 183, 103,183 
;t£n;p*<34)=8,254,254,6,6,23e,238,23e:[>E 
FCR»(53>-163/ 183, 193,56.96,127, 127,0: DEF 
CP* '36)»238,239,239.6,6,234,234,e:C0SUBl 
35=55508148 

3 SC=0iKV=4:LPB=i:NI»i:V.36:T^=28:irDI=3 
THEMP0=9ELS£PO^5 

? LOCPT£8,8,8iC0LOPi:PRIMTCR*(41 ):LOCPTE 
39.6,8: PP I MTCPJf 43,: LOCATES, 28, 8: PRIHTCR 
><46)iL0CATE39/2e/6lRBIIITCe*(4a>lLlME<I/ 
0^-'38,8>CP*C42):LIKE(I,28>-(38, 20)CP*(4 
2<:LI»l£<8,l>-'8, 19)CR*<44) :LIHE<39, 1 >-<3 
5, I9)CR*C44) 

10 G0SU835:L0CfiTEl,22!C0L0P6:PPIHT-Score 
: "t :CGL0P7:PPtMT5C:LGCftTE14,22:C0L0R6:PP 
:>IT"t(ive» 1 j:-;:C0L0P7jPRI»ITL6B 

1 1 L0CftTE38,22:C©L0P3:F0PI«lTONV:PPIMTGR 
f'8>;* ";:MEXTI!G0SUB185 

12 HX»ZiHY-Y:IF TU=1THENI68ELSE0MSTICK<8 
' GOTO 14,12,15, 12,16, 12, 17, 12:G0T012 

13 HX=X:HV-'r:©N' : JTICK<0)COTO 14,18,15,13, 
16,18, 17:GDT013 

14 nn=es¥H— i:G0TOI3 
13 >'.n-li'i-rl«e:G0TG13 

"H»IiXH"8:G0T0I8 




17 ; 



■X+XH1Y* 1 



POIMTf; 



l8>S f Y 



: IF 



P=-1TNEN23ELSE0H P G0T027, 28, 23, 27,27,27 

,21=C0T023 

28 SC-SC+10:PO«PO-i:LOCflTE?,22:CDLOR7:PR 

INT SC:L0CftTE21,22:PRIMTLfie:PLfiY-fl9T5L50 

4D0SI": [FPQ-0THEM23ELSE23 

21 G08UB195:COT023 

23 PSET<H>;,HY>GR*f48>,5:PSET(>:, V)GRif9>, 

24 IF PND< OU THEN 25ELSE13 

25 JI»INT<PND«36)*2: JS»INT'PN0«17>*2!P-P 
0IHT<Jl«3+5. J248*5>: IFP=-I THEMPSET( Jl, J2 
>CR*<4>, HGOT013ELSE23 

f P$ET' , HX,H'i'>CP*'3'.3:PLiVi , "ft8T3L30T'*JJ 

l-'02"*JJ**"03"*JJ*:PLAY-04"*jj**"05-»JJ 

l:NV=NV-l: [FMV=8THEN 29 ELSE L0CATEV,22: 

PPIMT- -rv»V-2:B0XF'l, l>-<38, 19)" ',9:G0 

T019 

23 PSET'HX,HY>GPK43),3:PSET(X,Y)GR*(8), 

3:BGXF'. i,l>-(38, 19)* -,0) LF.B=LRB*I : 3C=SC 

■»TK:C0L0R7:LQC(.TE7,22:PPINTSC:«*''D0PEftI 

•"PSOLftSI-:PLc.Y-CclT5L3O5'tPIH'rt*:Tt! , = T|f-t-20: 

Mi-Ni+ncoToia 

23 rFHI=lTHENCL3:G0T0143£L?EIFSC<I8lTHEN 

1LS:GOT0MSELSEH!*l:G0TOII8 

3G F0PI-1T039:PTTP8I, 1 J D»INT(RH0#6>*I : CO 

LOP G:L0CATE8, 1 1 :PP INT'BONUS 3999":C0LOR 

■^:iiTTR88,9:SC=3C*I89:L0CFiTE7,22:PRINTSC: 

PLAY ,, A903DO-iXEXT:MVHV*-l:NI=4:eOXFU, I) 

-'38, 19>' -,8iV-V*2:G0TO33 

31 ft*-lNK£Y*:IFft*---THE«18 

32 IFft«»*0'TNEN14ELSEIFA*«-N'THEN15ELSEI 
Ft.*"'U*THEH16ELSEIFA*<'*L'THEM17ELSE18 

33 h*'INKEV*s IFP*-'"THEH33 

34 IFA*--Q"THEM14ELSEIFA*=-rl"THEMI5ELSEI 
FP*» - WTHEtl16ELSEIFft<="L"THEN17ELSE33 

35 ON NI GOSUB36, 37, 38,49,42,44,46,48,5 
1,34,56,33,68,62,65,67,78,75,81,84: IFNI= 
21THEN38ELSE RETURN 

36 COLORHLOCATEU. 18: PRINTGP*f 50 ) : LOCftT 
E27, I8:PRINTGR*(5l)iLIME<12,10)-(26,10)C 
S*<42> f i:C-M-.07iGOSiJB92:PETURN 

37 COLOR li LOCATED, 10: PRINTGR*f 38) :L0CRT 
E27, 18IPPINTCR«'31>:L0CATE19,4:PRINTGP*< 
49 >: LOCATE 19, I6:PPINTGR*f 32 >i LINE( 19,3)- 
'19,13)GR*f44,,i:LINE'I2, I 8>-'26, 1 8>GP*' 
42 ; , 1 :DU». 878:G0SUB92: RETURN 

38 COLOR!: LOCATE 11, 18! PRINTGR*<35) :LOCfiT 
E!l,4:pRIHTGRK53>:L0CATE27, |8:PRINTGR*( 
5I):L0CATE27,4JPRINTGR*i'-3I > : L0CATE27, 16' 
PRINTGR*(31)JLINE' 11, 3) -(II, 13)GR«(44), 1 
:LINEa2,18i-'26,ie)GRI<42), 1 

39 LINEC12,4)-(26,4>GR*(42>, 1!LINE<I2, 16 
/-(26, 16)GR*(42), 1 :0U-, 88: G0SUB92: RETURN 
49 C0L0RHL0CATE1I, 16: PRIUTCRK35) ! LOCAT 
Ell,4:PRINTGP*f33):L0CATE27,4ipRINTGP*<3 
4)iL0CATE27, 16iPRINTG»*(56):L0CATE27,9:P 



RIKTGR*(32)1LI((E<11,3>-(11, 13>GR*<44 ), I : 
LGCRTE27,ll:PRINTCR*<49> 

41 LINEfl2,4>-<26,4)CR*C42>,i:LINE<l2, 16 
>-(26,16)GR*<42>, 1 ! LlHE(27,5>-(27, 8)GR*( 
44), l:LINE(27, 12)-<27, I5)CR*<44):0H=.885 
:G0SU892:RETURN 

42 COLOR l: LOCATE 18, 3: PRINTCP* (49): LOCATE 
19,3JPRIMTCR*(49>:L0CATE29, 3:PR1NTGR*<49 
,:L0CATEI8,17:PRINTGR*'.55):LOCfiTE29,17:P 
RINTGR*(56):LIN£(19,4>-(18,I6>GR*<44),1: 
LINEU9,4)-<!9,I6>GR*(44),l:LINE<29,4)-< 
29,I6)GR*(44), j:LINECll,17)-<28, 17>GR*<4 
2>,1 

43 DM-.89:G0SOB92:RETURN 

44 COLOR l: LOCATE 18, 9 :PRINTCR*';52): LOCATE 
10,3:PRINTGR*(53): LOCATE 16, 1 1 :PRIHTGR*(4 
9,:L0CATE18, 17:PRINTGR*<35) :10CATE29,3:P 
RINTGR*(54>:L0CATE29,8:PRIKTGR*(52):L0CA 
TE29, li:PRIHTCP*(49>:L0CATE29,17:PRINTGR 
*'56)iLINE(19,4)-fl9,I6>GR*<44),l 

45 LINE<18,4)-<te,7)CR*<44),liLIKECie, 12 
)-<18, 16>GR*<44),i:LINEC29,4)-<29,7JGR« 
44), i:LIME<29, 12)-f29, 16)CP*(44), i:LINE' 
11,3)-<28,3>CR*(42), I :LINE( 1 1, 17)-<29, 17 
>GPIM2),i:0U = .395:G0SU892:PETUPN 

46 COLORl: LOCATE 13, 3: PRINTGR*<38): LOCATE 
26,3iPRINTGP*C31>:L0CATE19,I3:PRINTGR*<5 
2):L0CATE18,3:PRINTGR*<49):L0CAT£29,3iPR 
INTGR*-;49)iL0CATE18, 17: PRINTGR*(35>tL0CA 
TE29,17:PPINTGR*r56):L0CATE29,3:PRIHTGR« 
'49>iLIN£<14,3)-<25,3>GR*<*2>, 1 

47 LINE<]8,4)-<10, 16)GR*<44), ULINECM,! 
7)-(28,17>GR*-:42), 1 : LINEC29.4 )-(29, U>GR 
I' 44), I:LINE<19, 4)-<|9, 12)GR*<44>, I! DM-. 
HC08UB96IRETURN 

43 COLORl : LOCATE 1 6, 2: PRINTGRK 51): LOCATE 

16.9:PRINTGP*C31>:lQCATEI6, I7:PRINTGR*(5 

1):L0CATE22,2:PRIMTGPI'58):L0CPTE22,9:PR 

INTGR*<30):LOCATE22, 17:PRINTGRIt38> SLOCA 

TE11,2JPRIHTGP*(53>:L0CATE1 1, WiPRINTGR* 

'53>iLOCATE27,2:PPlNTGP*(54):L0CATE27, 17 

ipPINTGR<<36> 

49 LIME<I2,2>-05,2>GPI<42i,]:LIN£(12,9) 

-U3,9)CR*<42>, l:LIHE<I2, I7)-(J5,17)GR*( 

42i, i:LINE<23,2/-<:26,2)GR*(42),!:UNE<23 

,9^-<26,9)GR*<42), |:LINE(23, I 7)-<26, 17)0 

R*'42),l!LINE<ll,3)-<M, 16)GR»C44>, 1 ILIH 

E(I9,3>-(19, 16>GR*f44), ULINE<27,3)-<27, 

16>GR»'44> 

5© LOCATE 1 9, 2: PR INTGR* (49): LOCATE 19, I7:P 

R!NTGP*'52>:DW=. 1 : G0SU892: RETURN 

31 COLORl i L0CATE12,2iPRINTGfl*(51>:L0CATE 

12, 171 PR INTGR* '31 ) I LOCATES, 2: PRINTCRK33 

>!L0CATE8, 17IPRINTGP*'55)IL0CAT£15,171PR 

Intt.pi- 58 >■ LOCATE 15.21 PR 1NTGP*(38>1L0CAT 

E23,2iPPINTGR*<5I):L0CATE23, 17iPRJNTGP»( 



51)iL0CATE26,2:PPINTGP*(58)it.0CATE26,17i 

PRINTGRIC58) 

52 L0CATE38,2:PPINTGR*(54>!L0CATE39, I7:P 

RINTGR*(56):LINE(9,2)-(11,2)GR*(42),HLI 

HE(9,17)-<11, 17)CR*(42). 1 : LINE( I 6, 2) -' 22 

,2)GR*<42),I:LINE<27,2)-<29,2>CR*<42),1: 

LINE(27, !7)-<29, I7)GR*(42), IiLINE<16, 17> 

-'22, 17>CR*(42>, i:LINEC9,9>-<29,9>GR*<42 

>f I 

33 LINE(8,3)-<8, 16)GP*(44), [ I L I NE ( 30, 3 )- 

<38, 16)GR*(44>, l:LINE(19,3)-C19, 16)CR*(4 

*-■•, i:DU=. ll:C0SUB92:RETURN 

54 COLOR l: LOCATES, 2: PRINTGR*' 49): LOCATES 
- l7:PRIKTCR*<55)!L0r;ATE3e,2:PRINTGP*(54> 
:L0CATE38,17:PRIHTGR*(52):L0CATE11,2:PRI 
NTGR*<38)!L0CATE27, 5: PRINTGR*(31): LOCATE 
1I,3:PRINTGR»(58>1L0CATE27, 1 1 : PPINTCRt( 3 
1 ):L0CATE1I, 14:PPINTGR*(58):L0CATE27, 17: 
PPlNTGRlfSI) 

55 LIME(12,2>-<29,2)CR*(42),i:LINE'9,5)- 
<26,5>CR*(42),l!LINE<]2,a)-t29,8>GR*<42) 
, HLINE'9, Il)-(26. I1)GR*(42>, I tLINE(12, I 
4>-'29, 14)GR*<42). PLINE(9, I7>-(26,17)GR 
*(42>, l:LINE<8,3)-(3, 16)GR*(44>, i:LINE(3 
8, 3)- (38, 16)GR*<44), HDM». 1 13: G0SU892JRE 
TURN 

36 COLORl 1 LOCATE 1,4! PRINTGR* (38 ):L0CATE1 
9,4:pRINTGR«(51):L0CATE33,4:PRINTCP*(51) 
:LOCATE22,4iRRINTGRI':50)iLOCATE9,7iPPINT 
G»*<49)iL0CATE31,7:PRII(TGRl(49):LOCATE9, 
12:PRINTCR*(52>!L0CATE31, 121 PRI NTGR*<:52) 
:L0CATE3, 15iPRINTCR*<5B)iL0CATE35, 151 PRI 
NTGR*(51) 

57 LINE(2,4)-<18,4)GR*(42),HLINE<23,4>- 
(37,4)CR*<42>, l:LINE<4, 15)- (34, 15)GR*<42 
),1:LINE(9,8>-(9,1I)GR«(44), ULINE<31,8) 
-<3I,I1)GR*(44), HDM-.12iG0SUB92:RETURN 

58 COLORl: LOCATE 19, 1 :PR!NTGRf<49> : LOCATE 
19,7:PR1MTGR*(52>SL0CATE1, 181 PRINTCR*<58 
)1L0CATE17,I8:PRINTCR*(51):L0CATE21, 18:P 
PINTGR*(38)!L0CATE3S, 1 0: PRINTGR* (51 ) 1L0C 
ATEI9,13iPRIMTGR*(49>!L0CArE19, 19IPRINTG 
R*(32)iLINE(19,2)-(l9,6)CR*f44>, 1 

39 LINE (19, 14)-(19, I8)GR*<44), I:LIN£(2, 1 

8)-<16,18)GR»(42), i:LINE(22, l8>-(37, 18>G 

R*(42>, HOH-. 125: C0SUB92: RETURN 

68 COLORl 1 LOCATE II, 2i PR I NTCR*(53): LOCATE 

27,2iPRINTCR*(54)iL0CATElI,17iPRINTCR*<5 

5>iL0CATE27,17tPRINTCRI(36)iL0CATEIl,8iP 

RINTGR*(32)iL0CATEll,ll:PRINTGR*(49)tL0C 

ATE27,8i PRI NTCRK32) t L0CATE27, 1 1 1 PR INTGR 

*(49>:LINE(11,3>-(1I,7>CR*(44),I 
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ZOMBIE 



EXELVISION-EXL 100 



Joyeux divertissement dans un cimetiere. par une nuit 
sans lune. apres les 12 coups de minuit 

Jean Louis FARGES 



?£ Tfe T/£WS, 7V Ml T'EHS , 

PPlR LA 8AgBi'CHE7TE/...J 



suite duN 92 

436 XJ*16:YJ-16 

*37 XZtl 1 1-3: TZK 11-17 

438 XZ0O>-16iYZ0<l>-lS!Xr0<2>-17:YZ0<2>=16:XZ0l3>- 

rxoo»i7 

433 XZOi* >-14; YZO<4>-18 

440 CALL CMARO;,- i 223449eA€A7E7E£&5A3C > .... 

t* UN PETIT ZOMBIE 

441 CALL CMAR(36,"C3C33C3AFFD8E7FF6666') ' 

un rem ZIMANCE 

442 CZI**"1YBF" 

443 CZ0«-"1«8F- 

444 RETURN 
443 I 

446 1 13 •■» TABLEAU 

447 I 

448 Zl-liZO-3 
443 XJ-12tYJ-12 

430 XZIM>-3:YZIci>-5 

451 XZa(i>-i1iYZ0<i>-12!XZ0<2>-13tYZ0<2>*>12:XZ0i3)- 
Y20<3>-11 

452 XZO(4)-3iYZQ(4>"19jXI0(S)-2O:YZ0<3)-19 

433 CALL CMAR(36,"7£FPDBFF0BE77E1824C3") ' ... * 

'.UN PETIT ZINANGE 

434 CALL CHAR(33,'42C3243AFFE7D93CC342") '..,♦..,... 
UN PETIT ZOMBIE 

433 CZIf-"1CBF" 
436 CZ04-"lH8f 
«37 '(ET'lSn 
438 • 

453 • 14 »■• TABLEAU 
4G0 ' 

461 ZI-ZlZO-3 

462 XJ-2tYj-2 

4E3 X2I(1)-3tYZI(1>-3iXZK2)-17:YZI(2)«T7 
464 XZC<1 )-Z0:YZ0C1 >-2:XZ0(2)-1O:YZ0<2)-3:XZOC3)-5: 
YZ0(3)-3 

463 CALL CHAR<35, '0Q1F2A7C7CS43A1E3E7C">1 .......... 

..........bit PETIT ZOMBIE 

4GG CALL CHARf.36,"7EFF3939FFFFDB&63C1B">!. **.***♦».< 
.........UN PETIT ZIMANCE 

467 HIi-"tWF" 
463 CZC»-"1RBF" 
469 RETURN 
170 




ATTENTION. ATTENTXm 

Pour to moti d'eoOt voua 
8Y8* droM i on rmm*fO ojub- 
oVypto, r8i9x*rv82>to 088) fnexdv 
tnjnflnt CfiBB? votr# cn#rcutNK. 
Pifutkm to 2 AoOt 







13 •-• TABLEAU 



{.?■ 

472 

473 ZI-2JZ0-3 

474 Xj-l2:r_-rz 

473 XZI(1>»11iYZIM>-3iXZIt2>-15iYZIC2)-13 
47E XZ0(1)-19:YZ0(1)-3iXZ0(2)-3!VZ0l2)-13:XZ0(3) 
YZ0(3>-19 

477 CALL CHAR(3S,'004Z66001S00197EOOOO"> I....... 

UN PETIT ZOMBIE 

478 CALL CHAR(3G,-0042101019007E3COOOO") !..,.... 
...... ...UN PETIT ZIMANCE 

473 CZI»— 1Y9F 
490 CZ0»-"1C8" 
481 RETURN 
492 

483 I 16 •■>• TABLEAU 

484 I 

4B5 ZI-2:Z0-3 

49G XJ-12iYJ-12 

487 XZIC1)-13:YZK1>-13:XZI(2>-17!YZI(2)-13 

499 XZ0(1)-2:YZOC1>-2iXZO(2>-10!YZO<2>-11:XZQ(3>- 

YZ0(3)-2 
489 CALL CHAR(3S,"42FF7E6E2C247E660B7E"> '........ 

UN PETIT ZOMBIE 



430 CALL CHAR(36,"997E7EDB7E2442FF3C1B\ 
UN PETIT ZIMANCE 

491 CZ18---1CBF" 

492 CZ0f--'ibBF" 

493 RETURN 
434 > 

495 I 17 ••>* TABLEAU 

436 ■ 

497 ZI-lsZO-2 

49B XJ-12tYJ-1Z 

439 XZK 1 )-13:YZI< 1 >«13 

300 XZ0(1>-7:YZOC1)-7sXZ0<2)-7:YZO(Z>-i7 

301 CALL CHAR<33,"3C5A6&5A3C24424242C3"> "... 

...UN PETIT ZOMBIE 

302 CALL CHAR(36,"7ED87E5A667E3C1824C3") i 

...UN PETIT ZIMANCE 

503 CZI*-"1H8" 

504 CZO»«"1RBF" 
503 RETURN 

506 I 

507 • 18 •■■ TABLEAU 

508 I 

303 ZI=2:Z0=3 

310 XJ«12:YJ«1Z 

311 XZl(1>-3:YZI(1>-11:XZI(2>=13:YZie2)-1S 

312 XZ0(1>-3:YZO(1)">19:XZ0<2>-15:YZO<2)=3:XZO<3>=13: 
YZ0(3)=13 

513 CALL CHARC35,"7EBDE75A3C3A5A5A93A3 ,, > ' *•* 

....UN PETIT ZOMBIE 

514 CALL CHAR<36,"7E08FFDBE77E244224E7">'. ........... 

• m...m<UN PETIT ZIMANCE 

313 CZIf»"1R8F" 

516 CZ0«" ,, 1MBF" 

517 RETURN 

518 < 

519 ' 19 •■• TABLEAU (C'EST FINI YAN A PLUS! 

320 I 

321 ZI-3:ZC-5 

522 XJ-12:YJ-12 

523 XZI(1)-5:YZI(1)-1l!XZI<2)-i5:YZI<2>-11tXZI(3)-13: 
YZIOJ-13 

324 XZ0(1)-2iYZO(1)-2jXZ0(2)-1O:YZO<2)-2iXZ0(3)-18: 

YZ0<3>*>2 
323 XZ0<4)-2iYZO(4)-20!XZ0(5>-1O!YZ0(3)-20:XZ0t6)-18i 

YZ0<G)-20 

326 CALL CHARt33,"247EFFC3BDFF2442919VJU*. .......... 

........ ..UN PETIT ZOMBIE 

327 CALL CHAR(36,"397EGEGEE7FF1B3C66C3") i 

....... ..UN PETIT ZIMANCE 

529 CZIt-"1M8F" 

529 CZ0»""1YBF" 

530 RETURN 

331 1 

332 IMORT Q'UN ZOMBIE 
533 t 

334 CALL 2APC3) 
535 FOR ZZ-1 TO ZO 

336 IF YZ0CZZMM00 THEN LOCATE ( YZO(ZZ) ,XZ0t ZZ) ) i 
PRINT '• " 

337 NEXT 

339 CALL C0L0R(CZI»>:LOCATE ( YZ0< I) ,XZ0( I ) J jPRINT ■■*'■ 

539 CALL P0KE(239,4S) iB<J)-3CJ).1O0 

540 YZO<I>-100tZO-ZO-1 

341 IF ZD-0 THEN S< J) -8< J) . 100*TA( J) i TA( J) >TA( J) .1 t 
COTO 3S6 

542 COTO 289 

543 | 

544 IDECOWPTE OE Wit 



J>-1iCALL SPEECH %, 



SAG 
SA8 
530 



zzz- 
554 
533 
536 
557 

558 

964 
561 
562 

SE3 

5G4 

565 

5££ 



Call P0KE(259,45)ii 

"IEX4) 

CALL COLOR ("OB") 

IF V(JJ(-0 THEN 5G5 

IF N8R-2 AND J-2 THEN J-ljCOTO 226 

IF NBR*Z AND J-1 THEN J-ZiGOTO 226 

IF N8R-1 THEN 22E 

GOTO 226 

i S0NU3 

CALL FIN:CALL SPEECH! "L , "1EX4 ): S ( J) -S( J> . 1 0O»TA( j: 

IF TA(J)-20 THEN TAC J>-1 ;S< J)-SC J) . 1 OOO-AIE ( J > : 

AIE< J)-AIE(J).3 

FOR I»2 TO 20 

LOCATE (I,2):PRINT " 

NEXT 

COTO 226 



S 72 

579 

574 
575 
576 



5B3 
586 

597 



593 
594 

Z3Z 

S9C 

537 



I FIN OE JEU' 

IF NBR=-2 AND J=1 THEN J«2;G0T0 SG7 
IF NBR=2 ANO J = 2 THEN J-1 
IF V<J)=0 THEN 572 
COTO 232 

1 PERDU 

PERf^'PPEERRODUU" 

CALL COLORfOCBHL") 

LOCATE (12,7):PRINT PER* 

CALL COLOR("ObBHL"):LOCATE < 13, 7) :PRINT PER* 

MES4»"W0ULEZ-W0US FAIRE UNE AUTRE PARTIE 

?(0/M) - 

PE-LENtMES«) 

FOR I»1 TO PE 

COLL KEY1<R,J> 

IF R-79 THEN CALL ZAP(3):COT0 389 

IF R-78 THEN CALL ZAP(9» sCALL EXEC( 30439 ) : EnO 

IF LEN(PE4><-22 THEN 585 

FOR U-1 TO 13:NEXT 

PE»-SEC»(PE»,2,22) 

PE»"PE*tSEC«<MES»,I,1) 

LOCATE <1,1):CALL COLOR ( "OCB" 1 

PRINT PE»:NEXT 

COTO 578 

CLSsCALL COLORC "1ye■ , ) :FOR I»1 TO 40:L0CATE (1, 

PRINT "I-sNEXT 

FOR I»2 TO 13:L0CATE (I,40):PRINT "fjNEXT 

FOR I»40 TO 1 STEP -1:L0CATE <20,I)tFRINT "1*1 

NEXT 

FOR 1-19 TO 1 STEP -IrLOCATE (I,1llPWNT 'fiN 

S( 1 )-0:S(2>-0:W(1)-0iV(2>-0 

COTO 142 
'S.P. 



FOR 1=1 TO 9:REA0 S,P 

OATA 30,5,50,5,30,3,30,3,30, 10,20,10,10,10,20, 

10,30,10 

CALL P0«E(23B,S,135) 

FOR B-1 TO P 

NEXT 

NEXT 

CALL P0K£(253,43> _ . „_ 
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CLIP 



Tel un professionnel de la bureautique. traitez du texte 
a souhait par ce programme de qualite. 

Etienne MONNERET 



LISTING 1 



*73 
i«3 



I 8QC&CA 1 sis;p 3 
POIMT cr- l».a, P«0( 



R|fl 

REM ■ 

F Of 

i QCH ; 

I PCM i 

i bcm 
i fttn 



-.a toirtun 






5PCCTDU« 



3»- . 
ocm 

OCH I - 

oc" ■ esessei we raucm 

A£M .* . II l.t£Ci:'t IV 
PCM . ■.!■», V 16" «t 

REM , '«eci»Itf«t «l«filil' 

PCM touttft 14* *d*B*, •'. i^n* 
PCM ii aodi i<ic*tlont t: 

REM '.It *■« i id'tuont qui 

REM V0U4 ■• 't-ti ;■.-.*-,- 

ACM 4 ' inui :i itn i 

OEM hepc : 

OEM 

REM OQlCl '»|MI«»'. ton 

REM r 

|jfi< 
s.- 

RfM ; 

-£.- | 

REM | 



III 

VX 

t :*> 

iZj 



I APBC0N0I33ON3 



t -Texre- 

•t un* •ort4 d* 

t ' t.l- - It It'll 



8lf0«(ii«l 
En taut 4t l 'IC'in 
vou* dtv«i 4vot' un* 
Ll»t« 4«t mufKClioni 

I "li.V «i 

I 01*41 . «'. \*r.A VOI 

0C4C4* 

III M»r-on* ttrtt tap* 

i«vi qwii »oim tcri X 

•n - t ,■ )• i«(f«n.«n 



18 LCT l««" 

a« oo to saaa 

29*9 PCM ITCXTC I 

aais let *•« 

aaaa print ot i,a. pbbcr 4,- tej( 

aoias prInt rt'iIi,' 'paper b. oriq 

KT l.NO.l 

a»39 'DP n.B TO 18 

aaje let ••; 

a«*a ppi-^r at ..-.-. paper 4. ou 

en 1 , - 

a«jft* impot it 

3903 IP ■ .LEFS \f>38 TMEN 00 TO 3 

838 

J963 PRINT OT n.3,«. PRPER 3. 8R 

IOMT 1, OVER 1, - 

a«7f ;r ii< tmbn so yo asss 

3908 IF L»- n OR l».'N TMEN IN 
PUT 'lilfli -I l IF nie TmCN LET 

n.l 00 TO 3848 
3808 IP I ••"7ih" OR Ita-PIN" THE 
N »T0P 

3188 IP l|A"X" OR l|«'X- THeN IN 
PUT itXitu ■' * 00 TO 3809 
3119 IP l». I ■ OP \f A TMEN 00 

TO 0988 
3138 IP H»-| ' OR if 3 TMEM 00 

^ *soj 

■ ' QCt 19«' L' TMEN 00 



4813 INPUT PAOE ENTIEReiO/NI :' . 

4814 IP P9--0" OR Pf»"0" THEN 00 

to *aaa 

401S INPUT -LI5NE OEPARY .dtp: 

IP dtP<8 OR dtp. 19 THEN 00 TO 48 

IB 

4914 INPUT 'LIONE TIN . fin. IF 

ftn«e OR 'iniie OR rimotp tmen 

SO TO 4910 

4833 IF No <1 OR Nft>7 THEN 00 TO 

4818 

4835 LET NO-NO-1 

4838 PRINT AT 1,1. PRPER 0, BRIO 

NT 1 , NO • 1 

4838 let faeaaa.No.089 

4949 "OR *-dtP TO 'in 

49«0 POIHf AT v.3.8, PRPER 4. OU 

CR I. 

4989 »0P ■•8 TO 39 

4933 lct td.a.utae.o 

4908 LET fCOOe 3CRCENJ <w*3.X*3 

4«78 PO«e 4d,o 

487B NEXT x 

4909 PRINT AT v*3,8, PAPER 3. flR 
IOHT 1, OVER 1." 











0839 If NO 


















0940 LCT t 

8940 'OB y 

















?88 
J"i»t-r 



OP ll.'F" TMCN 00 
OS (••"I" THEN < 



- I i 



SB X lt",tf1~.i'M1 

hem Cti paaat (gniuiuii'oni 



3:48 ;- 

TO 9919 

3188 IP H«fin OR If* FIN THE 
N STOP 

3178 IP !.••-•" OR Ifa-f THBN PR 
INT AT n.J.a. 

' 00 TO 3848 
3799 POIMT RT r.,3...a.'.f 
3898 NEXT n 
3»89 00 To 39 39 
3888 REM fflPPEL FICHIERl 

?919 PRI'IT AT l.a PAPER 4,' nPP 
l Piciien 

jaaa ihput positio-ner le mrone 
to rr appu'EI eNTBo- ,*f 
3aia loao cooe 



i aaaa 
:n lanuuEORttoe pichieri 

44>lt BBJ'A ot l.a. PPPCR Ji" OR 



use L_ 



9903 uCT 4d*«.>.v*39 

B930 LET vf-CHOf PeER . ■-■ 

9908 PRINT RT wS.'.a.vf 

B901 NEXT i 

S*6a POINT RT g.3.8. PRPER 3. I 

IOMT 1, OVER 1, 

8878 NEXT v SO TO 3888 

9888 OEM | INIT ECPAnI 

9814 CL9 

9815 80ROCR 3 POPEP ft INK 9 
L3 

Site let no*8 

9939 PRINT RT 9.9. PRPER 1. 
9938 PRINT OT a. 8. PROEn 1. 
9948 PRINT AT 1,8. PAPER 4. 



UMEOPPDE FICMieO 

oaaa input 'nom ou ficmier . i# 

0838 IF LCN l».B OO LEN 11. S InK 

H SO TO 0838 

0848 INPUT HETTRE LE MRSNCTO Cn 

POSITION CT TAPER ENTEO .»« 

6868 f6« l-l TO LEN if 

809C9 OCEP 1/18. COOE 19/3-18 

HI SAVE II COOe 30388.7.080 

998 SO TO 9898 
791 

H 



9973 
3934 



19 Th5n"poJnT i 
-1I0MT 1, ' ■■ 



9908 PRINT RT 8.8, PRPER ■;" "i 
RT 1,8. PRPeR 0, BRIOMT 1. 81 . A 
T 3,8, RARER »,■' 

mm M re mm 



nSTOP 



I OEM i 

I REM | 

I OEM | 



JStS 1 



LfjM ;-?.-s 



08 



889 REM I 3AUUE0OROE 

HlrnF. 

'JESOBDC POOC 



POSE I 

tn.lrf 



4818 INPUT NUHCRO Ot LA PROS 



3. PAPER 4. RPP 
3818"lNPLIT "NUMERO OE LA PROE ". 
8813 INPUT ■ PAOE ENTIEREIO/NI , 

541* IF Pla'O" OR •••"0" TMCN 00 

oaie 8 "puT 'lione oepRRT *;«» _ 
i" dtP<a on ata>ie then oo to ob 

eaio input lione fin .un if 




EVASION 



En faisant des trues ctebiles pour vous (jchapper dun 
asile psych iatrique, jouez a qui des deux est le plus 
fou. 



suite 
duN°92 



Gerard FERRANDEZ 



29400 OflTft0-H.flvor.rt7.9F.07.07.fl7 
■■• B ». J4.32. <" •>■ ■■< 
29470 DATftOO ■ OO 00 . 00 00 oo . no . 09 

,97. 66. 86.96 82.92.82 B3 
20490 DATA28.30. 18.09,08 O-iO' .00 

.00.00.00.00.90.00.09,00 
28490 rifiTf»e00.80.OO.OO.oo.pfl.O9 
00 O0.00.1C.X.3E.1C.19 
20109 DATA99.00.90.O0.00 OO.fM.OO 

liSi MTRii.M.rj.es.ii.w.eo.Rs §»» ?£Sc!ii;;?!i?!i?'- ,K,!M - ,s 
Fslc^il 2 " 19M F2 5 "' 4? 81M ' 2 ™ M [MTnee.ee.ee.ee.eo.ee.Bn.M 

1?^ 2 T S S i? e «| R «S' : ii| 1 rrn?« 1 M340 Wfl98.ee. 9f>. BE. IE. IF. 96. BC 

la ii ii .09- 99- 09. 99.ee, 99. 99. 99 

9»Tn naraa* « « a) K K rr n, 2OTW MTfle0.99.ea.ei.e2.O4.04.e8 

oT^cct nl WW POTflO0.OO.O0.00.O9.O0.eO.O9 

M9M naro4r » « a .99.00.01.03.66.60.98.00 

SSS StSoS '5^ oo'lfl 00 « OO OT 28 ' 79 DflTfl3C.3C.26.06.06.e2.e2.ei 

ST«2 S «TiS OO m .20.90.00.80.90,00,99,00 

■S^«MTSi?w?»7i7.ec.w.fle.» g»" grSfif^if i 88 .00,00.00 

u or m\ ao of- oa 00 an aa or aa .w.w.of .w.Dr.Br.TO<i» 

ca«2T23 J8,w DnTfloe.eo.oo.ee. 20.ee, eo, eo 

vi-ia,! uTam ^a aa <ms 00 cm> ra 1 a ■ 80. 89. 09.91 . 99.99. 90. 00 
frS rKacioMKHMiJ ***<> DflTftOF . IF . 2F . OF . 2F , IF, 0F.8F 
»7» » 09.29,29.28.28.28.28,28 

282VDflT»39.8C. 8O.Be.8C.».03,EE |?S>9 DflTflee. 90 . 00 , 00. 00 , 00 , 00 , 00 
20279 DATAR2 11 ft9 C8 8ft '9 17 ftfl 29620 ORTfl99,9e.09.99.99,90.9e,26 

IS 2 !^ M T ^ E Frftl ^ftn e HF 7 flD R Hl fi '28fi48'r«TrW9. 99.99.99, eo, ee.ee.ee 

« ^ J . 87, OF. OF, OF, 8F. 07, 07,07 

29298 DfiTft90.Se 206Se DflTR39, 38,30,30. 30.30.30, 39 

fj 3 ?! Sr^^M e « 2 B??9 e 'W 8 4S 9 2e « 69 WTR97 , 07 . 8"! , 89 . 99 . 99 , 09 . 9D 

J « ^ .29.29,00,08,00.00,90,29,99 

293T0 DftTft29.99,6e,50. 59. 39-59.39 29S70 0^2,48,90,67,80,90,87,87 

♦l ^;^ 9 ' 48 ' 62 ' 48 " 48 ' 62 ' 99 ' 62 ' ^99'DflTR?2.48.BO,RF,8D.9D.07.B7 

SS.Kff»!-*«?»^»?w! ^1^2,49, BD,F7,8D,9D,07,B7 

3 293l9 I DflTfll2, 12. 12,39,99.96,96,96 2070^09^2, 48, BO, 3F,8E,9D,9?.B7 

.96,96,34,29,99,30,39,32,36,32,30. -Cft.D0.F7, 69 

•M.9Q.4Q 2 0710 f>flTftfl2,49,BD,87,8E,9D-07.B7 

29349 DftTfi49,40.48,48,48,62.09.34 ' £2™ ' £«iSL .« „„ ** «■- «„ -, « 

,34.62.39,39.39,39.99,62,50,30.50, 29720 PflTBfi2, 48,80,CF.8E,90.87,e7 

39 39 39 ,Cfl.D0,F7,69 

29359 DflTft99.29.59,39,39.39,39.28 29739 DflTflA2,48,B0,67,8D, 9D.4F.B7 

90 , 69 , 39 . 50 . 68 . 48 . 48 . 49 . 09 . 29 . 39 . - Cft , 09 . F7 , 69 

59:39:39 :w * 0le "■ H "'"»'■" , " : "" :a ' J,!, ww DflTflfl2. 48,80. RF,9D,9D,4F,B7 

29368 DATft34, 26.99, 69.39-50. 66. 52 -Cft. 08, F7. 69 

,34, 54. 99, 29. 54,48,29,06,54.2*, 98, 28759 DftTftfl2,48.BO,F7,80,90,4F,B7 

63.12.12 ,C8,08,F7.69 

29379 DATRI2, 12,12.12,99.59,59.58 28769 DRTAA2. 48, B0, 3F.8E,9D,4F.B7 

.39,39.39,29.99,59,59,58,58,28,20, .CA,O0.F7,60 

98,98.39 28778 DRTAfl2,40,BD.87,8E,9D,4F,B7 

29389 DflTft58, 59, 39- 62, 54, 34,09,34 Cfi,09,F7,69 

,34,29.08,29,34,34,09,31,51.30,12, 29780 0ATftft2,48.8O,CF,8E.9D,4F,B7 

12, 12, 12 ,Cfl,08.F7.69,99 

28399 DftTft99,62,06,12,24,48.4R.62 20790 DflTAAfl.Cfl, 95-00.89, BE. 85, 90 

99,99 .82.93, 18,ft3.8C,69,28.83,8C-98,92, 

29499 DflTft99,91.93.93,91.01.03,03 E6.90.fi8 

99,39.39,39,39,29,99,29 29808 DfiTR23.BI . 0C, 48,88. Bl ,8C.C8 

29419 DflTft09,89. 08,99.99, 99.99.99 91 -0C88. 88, 18. F7, 08,68,91 .8C Cft, 

93.93.93.83,93.93,93.91 D9.0F.69 

29428 0flTft29. 39- 38.39.39-39. 30.29 29910 DftTftft9. 2ft, 85- 80, 89, BE. 85, 00 

88,99,99,99,99,09.99,99 ,R2, 93. 18.85,90,69, 28.85,00,90.92. 

29439 DflTR91.91.91,9t.e2,92.02,83 £6,00,8.0 

20,29.29-29,20-29.29.39 29820 DflTR23,Bl .00 .48. 88. Bl .90,08 

29449 OftTflee, 99, 99, 99. 99,90.99.99 91 00. !10.88. 19. F7. 08. 68-91 .8C, Cft. 

99.99.99.91,91.99.99,91 09- OF, 60 

29459 DATA99.99.39.38.X.38.30.3O 20939 OftTfl99.99;90. 88, 99-00,00.00 

90.00.00,99.99-90.09.99 .90,00.08.00,00-00.00,00 




ORIC/ATMOS 



ATTENTION. ATTENTION 

Pour i« molt d'soOl vout 
•v« droll * un nun>4ro qut»- 
drupl*. r*»»rv«-1« d*i m»!rv 
t*n*nl Ch« votr« ch«rcti11«r. 
Parutlon l» 2 AoOI. 




.A^Oi'HS 



0649 
99,99 

,. ' ,. 

ic.se 

.'OfWPl 

. 3c , 7R 
20970 
. OO . 00 

.-innoo 
. 00 . 00 

20890 



29910 

20920 
, 80 . 00 

20930 
. nr . nr 

29940 
- 20 . 39 

20950 
, 00 . 90 

20960 
,08,81 

28979 



nnrnoo, 99,99 I 

... ■ ■ ge, ee,ei ,9) 
DATAO0.flO-O7.07.0F. I 
3E. 3E. 29. 29, 24. 29 

r-ftTftt?i 01 01.00. 00. <: 

38-38,19,30.29,30 

oftTHi0.0o,00,ee,eo,( 

00,09.00.00.00,00 

0fiTft89,88.80.00,O9,( 

00.00,90-09.00,08 

DflTflOO, 99. 99.89,81 .( 

90 ■ 1 F . 3F . 3F , 3F , 3F 

PATflOO . 90 . 99 . OE . 2F . : 

00.00.00.00,90.00 

08Tfl31.21.22.2C.29.; 

00.99,00,00.00,09 

OfiTflOO.90.00.08,01 ,( 

09.e0.38.3C,3C,3F 

PATA99,09,00,O0.08,t 

19, 13.18.89.91.00 

DRTA.3F. IF. OF. 3F. 05. 1 

39.39.3C3E.3E,30 

DflTROO. 90.00.00.00,* 

90,99.90,00,98.90 

Ofl"Tfl90.09,00.00.90-t 

01.00,00,09,04,02 

OftTfl00,30,9C.97.03,( 

09,90,38.38,39,39 

DftTfl91,09,lF,00,OO,< 

3F,9F,0F.1E,3E.3E 

OATfl39.30.29,26,00,< 



HI). 00 



,03,01 
.3F-24 
.20,39 
.97.9? 



1.00.99 

.03,97 
1,09,01 



21049 

. 3F , 99 

21959 
. 80 , OO 

21860 
.00.90 

21970 
,02.96 

21098 



08TR3E, 10,98, 99, 09, ( 
09.99,09,00,99,88 

OftTftO0,0e,90,09.00,t 

89, 98, ee.ee, eo, eo 

0ftTft88,90,89.99,ee.( 
00.09,98. 10, 3F.3F 

DRTR28,28.29,39,38,; 
IF, 30, 29, 28, 20. 29 
DftTfi3D,09,99,90,00.( 
99,90,00,00,00.88 
ORTfiOO. 06,89,09. 00. ( 

89, 89, 99, ee.ee, 99 

ORTfl09,00,09,98,99.( 
00,90,08,89,09,90 
DflTfl97,OF,OF,0F.07-( 
2C.18,3F, 38,38, 30 

DflTft00,88,99,90,20,( 



IF, 01 



0RTft3E.3F, 

20-20, 00, 00, 00. 00 

DRTfi29, 20, 39.29,30,; 

09,09,09,89.00.00 

O8TR2O,20,38,39,38, 

88,88,89,00,00.00 

oflTfl20,90,00,ee,e0,( 

69,99,99.80,00,00 
DATR38, 08, 3C, 28,30. ' 
00,00,98,80,09,00 
D8TR38, 18, 1C, IC,0E,i 
.00.00,80,80,00,90 
21130 ORTfllS, 38,28,29,29,; 
.88,80.60,99,99,80,90,00 

21169 0fiTft3E,22,3F,3R.3F, 
.00,00.80.00,09.99,99.08 

21170 0ftTR3E,26.27,27.23,: 
.00. OO, 89. 00, 20, 29, 20.00 

DRTfi26,30,38,38,38,; 
00,00,98,89,99.09 
OfiTR0F.O8.1F,0E,9FJ 
29 - 20 - 30 , 29 , 30 - 20 , 99 - 99 



21118 

,00,98 
21128 

,00,00 
21130 

. 00 . 90 
21149 



21180 
. 09 , 00 
21196 



21208 
.28,20 

21210 
.29,99. 

21220 
.09,36 

21239 
,3F,97 



DflTR9F,09,89,99,88,l 
39,39,39,18,38,38 

DRTfll9, IF,9E.BE.0E.I 

DATrieeifli •B9,ei .ee.i 

3C, 90, 88, 99, 80. 0r 

OHTft01,09,09.98,89.l 

00,99,88.29.30.00 



i.00.00 
:,93,93 



,00,08 
,38.39 
.99,09 
,38,09 
,3E,IC 
,09.39 
,10.99 
.3F.27 
,39,30 
.07,89 
.1F.19 



21249 OftTftOO. 93-93, 01 .00,99.00. 3F 
,00.30,30-30. IE. 08. 3F.3F 

21250 DfiTfi3F.O0.00,99.0F.OP 93 99 
.3F,0F.02.02,?9- 19. 30,89 

21269 DfiTfl80,03.0F,9F.07.ci>. IF, IF 
- 99 , 30 , 30 , 30 . 3E . 3E . 3F . 3F 

21279 0RTR3F , 03 , 90 , IF. OF. 9F .07.00 
.3F.?F.3E.3E.3O.3O,39.80 

21280 OftTRO9.03,9F,OF.lF,lF.3F,3F 
. 99 . 39 , X, X, 3E . 3E , 3F . 3F 

21299 DflTR3F.3F. IF. 1F.9F.9F-03.0O 
. 3F . 3F . 3E . 3E . 30 . 3C . 30 . 00 

21300 0flTRfl2-4e. 80. OF. 84.90.07-67 
,Cfl.P0.F7.60 

21319 0RTRR2. 48- BO, 17. 85. 90-07, 67 
.Cfl,OO.F7.60 

21320 0RTfift2.48.P0 ^F.Ffl.Q0.O7,B7 
-0ft.00.F7.69 

21339 DfiTfifl2.48.BD.R7.85,9O.07.87 
,Ofl.08.F7,69 

21349 OfiTflfl2,49.BO.EF.85.9O.07.B7 
,Cfl,D0.F7,69 

21350 0flTflfi2,48.B0.37,B6. , »0-O7.B7 
,0R,0e.F7,60 

21360 DflTflR2.48.eO.CF.84.90.4F.B7 
.CR,O8,F7,60 

21376 0flTRfl2.4S.B0.17.85.9O-4F.87 
.CR.09.F7,69 

21388 DRTRR2,48,B0.5F,83.90,4F,B7 
,Cft,D9,F7.68 

21398 0RTRfl2,48.B0,fl7,85.90.4F.87 
.Cft,09,F7,69 

21499 0fiTfifi2.48,B0,EF,85.90,4F.B7 
-Cfl.0e.F7, 66 

21416 OflTftfl2,48,80,37,86.90,4F.B? 
.Cfl,06,F7,69 

21426 0flTfifl2, 20, BO-3F.R7.ro. 97. 89 
-Cfl,D0.F7,69 

21438 DflTflR2.29.BD.3F.87,90.97.B9 
-Cfl,O8,F7,60 

21440 0ftTftR2, 26,80. 7F, 87. 90,97,89 
,Cfl,08,F7,66 

21438 DflTftfl2,29,B0,9F,87,9D,97,B9 
.CR,D9,F7,60 

21469 DflTfW2,30,BD,7F,96,9O,17,B9 
,Cfl,09,F7,69 

21479 DflTRA2. 30. BO, ftF. 86, 90.17,69 
,CR.D0,F7,69 

21498 DRTflfl2,39,B0,0f',86,90,17,B9 
,Cfl,O0,F7,60 

21499 DfiTftA2,38,8D.0F,87.9O.17.89 
,Cfl,09,F7,69 

21398 OflTfifl2,30,ft9-O0.Efl,9O,17,B9 
,Ofl,D0,F7,68,99 

21318 0RTftfl9,4B, 83.8C, R9.BC, 83,00 
,fl2, 14, 18, 93, 60,69.29. 63,60,90,62, 
E6,eD.A9 

21320 OftTftOO. Bl- 00, 48. 08. Bl.eC, 88 
.91.9C,Ce.C0,98.C9.23,D0,F4,e8,69, 
91.8CCR 

21339 DflTft08.DC.6e.99 

21349 0flTR99.ee, 00, 03. 04. 08- 10.70 
. 99, 99, OF , 39 , 99. 99, 99, 09 

21359 DATA00.00,03.3C,09,09,9e,09 
.93,10,29,90,09,99,99,00 

21360 OftTfl3F.89,00,99.99,09.9O,0O 
.38.96.91,89.00.99.99.98 

21370 DATft99,99,0F,38,84,03,00,ee 
- 08, OO, 3F, 00- 99, 90, 38,97 

21598 0ATR81 .06. 39.86.68,98,90. 3F 
.00, 99, 0-3. 99. 91 -63,04,38 

21390 OATflO0,09,97,lF,3F,3F 
.1F,3F,3F,3F,3O.3C,1C,08 

71690 0flTR3F.3F,3F,3F,3F.3F.lC.lE 
.99,30,39.3F,3F,3F, IE.9C 

21619 0flTfl99, 06,99.29. 38,30.10, 97 
, .29.29,19,90,03,99,90.00 

21629 0ATA99, 99, 99.00,01 .3F.93.3r 
I ,99,99.00.99.3F,3F.3F,no 

21639 OftTftOO, 01 .03. IF ,3F , 3F . 20.09 



.3F.3E. 39.38.21 - 93-06.00 

21649 Dfl.TR3F.lF. 1F-30- 38 .Jfj.Bft . Mt 
.3F.3F.3F.30.30-9E.01 OO 

21650 OftTftOO. 30. ■«. jr. \r p^ 07. o t 
,20.20,10,OO.0?.O2. K ..>n 

21669 DATftOO. 90-80. 00.99. V-««. 99 
.99,99.99.99-9?,3F.lF.8« 

21679 OATft0O.OO.9O.lF.--^F.TF-?F.|F 
.99-97,3F.3F.3F-3F.->F.?F 

21689 0flTft99.39.X-X.3F.-f . * . tf 
. 09. 09 . 99,99, 3E . 3F . 3F . 3P 

21699 DATftOO. 90 00.00. 9ft.?fl.?o.-*F 
29.29.39.39. 18. 0C. 02. 01 

21700 DATft29, 19. 64-93. 00.OO.fl-'. >F 
.99.99.99.99,3F.99.3F.99 

21710 OflTft90.90.99.3E.01 .03.3F.99 
01 .o.3. 04. 08. 30. 00. 09. 80 
21729 0flTft98.98.98.98. 18- 18. 19.29 
-91-01, 82. 94. 04, 04. 98- OR 

21739 OflTAOF .07.01.9O-90.fl0.(«0.ftO 
■3F.3F.3F.3E. IF, 9F.93.99 

21740 OATA3F.3F, OF, 07.0*1 
.3F.3F.33.0l,03.01-09.O8 

21738 DftTA3F.27.33.7R.3r.36.9O.08 
.09. 09. 09. 00. 09. 03. 07, OF 

21760 ORTR00,00.9O.99.O0.ee.X.X 
- 09. 99. 99. 99. 99. 91. 9F. IF 

21770 DflTRO0.O9.00.oo.nr-7c, >r. ic 
. 90 - 09 . 09 . 90 , 29 - 39 - 30 . 3E 

21789 DRTft9E.0E.0E,96.96,96,O2,8l 
-3B.3B.e9.lF,lF.09.38,3B 

21799 0flTA2fl,3F,09,lF,lF.98,3P.3P 
, 9C , 1 E , 3F . 3F , 3F . 3ft , 30 - 30 

21899 OflTR99.00,0C.X.36.0F.>-,3F 
.IB. 19. 38. 30. 20, 33, 35^35 

21810 DftTfl04.06.06.OE.9E.8F-lD.15 
.99 

21820 DATA5.5.5.3.3.3.5.5.3.3.3.1 
0.16. 16. 6. 8. 6. 19. 19. 19- 8- 8. 6, 5, 6- 5 
,3,6,9 

21839 DflTft98,6.6,8.8.6.3.3.6.8,6 
.3-8.3,6,8,8,6.6.8.8,6.6 

21846 DfiTfle.8.6,5.3,5,3.3,I .8.9,6 
.8,5,3,8,9,3.1,3.3,3.3,3 

21830 DATA6.3.3,3.3.3.6.3.3.3.1.1 
,99 

25000 PEMt*tft*tt**ttt*i»tt*ttl*« 
ttttt 

29990 REM IHIT RORESSES MftOHINES 

39999 K3-«9088 M-#99EC X1-»8F3C 
39919 X2-t8F68'X3-#8F74 X4-iflF99 
30920 X3-»8F8C'X6-«8F98'X7-«8Ffl4 
38039 X8-t8F80:X9-48F8C'V9-t8FO8 
30O49 Vl-f6FO4'V2-#8FE0'V3-»97OO 

30059 V4«»97CC V5-48708 ■ V6-H87E4 

30060 V7-#87F0'V8-#e7FO'V9-#8808 
30979 Ue-«e8I4Ul-lB829'U2-i9920 
30090 W3-H9838'U4-»8844'U5-«9fl50 
39990 W6»»8R30'U7"»8969'M8-#9874 
30100 W9-«888O.K0-»888C'rCl»t8898 
39116 K2-t88ft4'K3"«9CR9'K6-»9310 
39128 K7-482DCX0-IIB9eC'l'e-»B984 
38139 K9-»8994 
30149 RETI.IRN 

40000 PEM 



4001O OOMPRTIBLE ORIC-1 / RTMOS 
I 

46929 NE PflS MODIFIER L'ftOPESSE 
OES POUTIHES.NI LES NO 
OE LI OWES 
1 40639 NI LE CONTENU DES OflTflS 

SOUS PEINE OE PLRNTft^E. 



49040 
49930 
40060 1 


BASIC 


19 Ko 
5 Ko 









THOMSON T07J07 70, MO 5. 



Suite de la page 4 

61 LINEdl, 12>-dl. 16)CR«(44J,l:LIKE(27, 
3>-<27,7)CR»C44), 1 :LIME(27, lZ)-< 27, 16 )CR 
t<44>,i:LI«<12,2>-<26,2>CR*C42>, HLINCt 
)2,17)-(26,17>C»*<42). 1:LIKE(19,3>-<I9,1 
&)CPt(44>iDH-. !3:C0SU892iPETURH 

62 CDLOP 1 JLOCRTE II, 2i PPINTCP*(33>- LOCATE 
27,£:PRINTCR»'54):L0C0TEll,17:PRIMTCPf(5 
5j!L0CflTE27, l7:P»IMTGBtr 56) JLDCftTEl l,8:P 
PI NTCP* (32 >■■ LOCATE! 1. 1 1 = PPlNTCR*C49>i LOC 
flTE27,8iPPIMTCR*'52)JL0C8TE27, 1UPRIMTCP 
•(49)iLI«E(ll»3)-f II,7)CR»(44>/1 

63 l [Nf II . !?.■-■ M, 16)CRt(44), HLIMC(27, 
3/-*27,7>CPIC44., liLlME(27, 1 2 J -<27, 1 6)CR 
«<44>,i:LIMECI2,2)-<26,2)CP*<42>,!:LIMEf 
12, 17)-'26,17)CR»<42>, 1 1 LINE' 13,6 >-f 13,1 
3>GRt<44>,!!LIIIE(|9,6»-U9.!3>CR((44>,l 

64 L1ME'23,6J-C23, 14>CR«<44>, 1 (LOCATE 13, 
5iPPIMTCRt(49>!L0CATE19,3lPRlNTCR*<49)lL 
0CATE23,5iPPINTCR*<49>' LOCATE 13, MtPPIHT 
GPU 32/: LOCATE 19, I 4 J PR I MTGPK32) : L0CATE2 
3,I4:PRIWTCR«C52;:DW-. t33«C0SUB92iPETURN 
63 C0L0RHLOCATE19, 1 1 PRIMTCPIC49HL0C8TE 
19,2!PRINTCR*'52>iL0C«TE19, 18) PPIHTCP«<4 
9>tL0CATEI9,19tPPIMTCRK32>iL0CATE19, 3iP 
RIMTCR«(49>i LOCATE 19. I5iPRINTCR»<32) 'LOC 
ATE7,ieiPRINTCP*t30>:LOC«TE32, IBiPPIMTGR 
l'51)iL0CATE4, tBiPPlt(TGP*<5I ): LOCATE I. 18 
:PPIKTCR((3e> 

6o L0CATE35, lei PPIMTCR»(58/ 'L0CATE38, 18i 
PPIMTGR«(3i)JLI»E' 19,6>-(19,14)CRi(44>, 1 
:L1NE<S,19>-<3I,18)GRI(42>, I iLIME<:2, 1«>- 
<Z. 18,GRI(42>, PLIME'36, I0>-'37, |0>GPt'4 
2>,tlOU>. 14:G0SUB92:PETUPM 

67 COLOR 1 s LOCATE 1 4, 2 tPP I MTGPH 30 >s LOCATE 
24,2iPPINTGPH51 CL0CATE3,4iPPINTGRt'5e, 
iL0CATE36,4:PR[MTGP*<51 1 1 LOCATE 1 . 6s PR I HT 
GRI<3«>:U)CATE13,8!PRINTGP«<51 )tL0C»>TE2l 
,8:PRIMTGRI'38^L0CATE38,8!PRIMTGR«'31>! 
LOC»TE3,12iPRIMrGPl'59>!L0CATE36,12tPPIX 
TGPIt3l> 

68 LOCATE I, 16: PRINTGRK5e; ■ LOCATE 1 3, 16iP 
PmTGPtf31>'L0CATE21, l6tPRINTGR*(3e)aOC 
ATE38, 16iPRINTCR*(3lftLINE(13,2>-'23,2)C 
Pt(42),l!LINEC*,4>-'33,4>CR»<42>,l!LIHE' 
2,8>-<17,8)GR»(42>, 1 : L I HE' 22, 8 >-'37. 3,GP 



t- 42... i:LIME<J,12J-'35, I2)CR»<42>,1 

69 LIME'2,16)-(I7, 16>CR*<42>, 1 :LINE<22, 1 

6 --'37, 16iGP»<42), l:f>H». 15!G0SUB92:RETUR 

70 COLOR is LOCATE 13, 1 s PR IMTCRK49>: LOCATE 
19,i:JPPINTGP»<32 -i LOCATE 19. 18! PPIMTGP«(4 
9-SL0CATE19, 1 9i PPINTGPK 52 ) 'LOCATE 19,5: P 
PINTGR»'49)aOCATE19.13;PRINTGRI(52>aOC 
»TE?,iesPPIKTGP*'">o.-:L0CATE32. 10'PPINTGR 
t '51 ,:L0CBTE4, 18: PP IKTGR«'5I ): LOCATE 1, 16 
:PPINTGR((3e> 

71 L0CATE33, IQtPPINTGP(<30ML0CATE38, 18? 
PRIMTGR»(31>iLI«'19,6>-<19,14)CR«<44>, I 
iLINE'8, ia>-(31. 10'GP»'42). l:LIHE(2,10>- 
'3, 18JGP*<42),HLIME'36, 181 -(37. I0)CR«(4 
1". i:LOCATE3,5tPPIHTGPt«50>:LOCATE16,5:P 
t>IMTGR«<51H LOCATE 10. 3:PRINTGPt (49) iLOCA 
TEI0,7 

72 PRIMTCP*<32).L0CATE29.3iPRlHTGRf<49)i 
LOCATE29,7iPPIMTGP»'52ML0ChTE22,5!PRINT 
GRI'58>ILOCATE36,3!PPINTGP*'51):LOCATE10 
, 13iPRIMTGP*'49>!LOCATE10. 1 7iPRINTGP((52 
'JL0CATE3, l3fPPINTGP*(38><L0CATE16,l3iPR 
IMTGP«(31)iL0CATE29, 13iPRIMTGR«< 49)1 LOCA 
TE29, 17 

73 PPIKTGR«(32)iL0CATE22, I 3! PRINTCR«<59> 
••LOCATE 36. 13iPRlNTGPt<31)iLIN£(10.4)-(10 
,6>CP»(44),i:LIME(29,4)-(29.6>GR»(44), I! 
LINE(29, I4)-<29, I6'GRIi44>, i:LINE( 18, 14> 
" 10. I 6. -CPU 44,, 1:LINE(4,5)-(I3,3)CR(<42 
>, HLI«(4,13)-' 13. 15)CR«(42>»LIME(23.3) 
-<33,3>GR«(42> 

74 LIME(23, 13) -(33, 13)GR»( 42), 1 iDH«. 135i 
G0SUB92IRETURM 

73 COLOR 11 LOCATE!^. I :PPINTGPl< 49 )i LOCATE 

1 *,ctPRIMTGPH52':L0CMlC19, lfl:PPIMTGPi(4 

?/JL0CATE19, 19iPRI»lTCPi(52>rL0CATE19,5tP 

RIMTGR*(49iiL0CATEI'J. 15: PP1HTCP*(52HL0C 

ATE7,10iPR[NTGRI <3B • t LQCATE32, 10IPRINTGR 

•-■'.; ■ m '(■-■...[! -i. ieiPRINTCR»(31> I LOCATE 1,10 

IPPIMTGPK39' 

7t L0CATE35. 1 Oi PPI MTGPI'38 > ' L0CATE38, I8> 

f-PINTGRI'51 j:LIME(f9,6)-(l9,14)GR»(44),l 

: LIME' 8. l«)-(3I,10)GR* (42>, HLIME(2, 18 >- 

'3, I0)GP*(42,. |;LIME<36, lfl'-(37, 10)CRf(4 

2>, HL0CATE1.7;PPIMTGP*i33)iL0CATE16,7>P 

P]MTGRI'36ML0CATE3,7:PRINTGR*(32)IL0CAT 

EI3.3 

77 PPlMTGRK31>.L0CATE16,3iPRlNTGR*(49)i 

L0CHTE6,7:PPINTGRI(5e^iL0CATE3, IJiPPIMIG 

R<(53)tL0CATEl6,13iPRIKTCRI'34)iL0CATE16 

■ 17lPRlNTGR»(56'lL0CATE3, I 7t PRIMTGRI(33> 

IL0CATE9, J7:PRIHTGPI(5I>!L0CATE12, 17iPRI 



NTGP«(58)iL0CATE22,3iPRINTGR*(53>:L0CATE 

22, 4iPPINTCRf(32) 

*^9 L0CATE22,7:PRINTGRf;5e):L0CATE36.3:PR 

INTCR«(3l)iL0CATE36,6:PPINTCRf<49):L0CAT 

E36,7iPRIHTGRl(56>:L0CATE22, 13:PRIMTGR«( 

50 , ':LOCATE22.17!PPINTGR*(3B):LOCATE36.13 

iPPIMTGR»(31>:L0CATE36. 1 7:PR1»(TGR*(51 ) :l 

INE'23, l3)-(.35, I3)GR»(42), 1 

79 LINE(23,I7)-(35,17>CR*(42).l.LIHE(23. 

3)-(35,3)CR«(42), l!LINE(23,7)-(35,7>CR»< 

42). 1!LIME(4,3)-(12,3)GR«<42), HL!*E<7,7 

)-(15,7)CR»<42),lJLIME(16,4)-(l6,6)CRI<4 

4>. i:LINE<3,4)-(3,6)CRI(44>.HLINE<4, 17) 

-<8, 17)GRf<42),HLIME<l3,17)-<13,17)GRf( 

42), 1 

90 LIHE(3. 14)-(3, 16)GRi(44), I:LINE<16, 14 

>-<16,16)GRt<44>, HLINE<4,13)-(13,l3>CRf 

(42), tiDM-.I3JG0SUB92:RETURN 

81 COLOR! IL0CATE4, 3i PRIHTCPK38) i LOCATE 1 
0, 10i PRINTGR*<51>! LOCATE 7, 171 PRINTGRK38 
.>! LOCATE 17, l7!PRlMTGRI(5l)iL0CATE23,19iP 
P1NTGR*C5I)IL0CATE21, 13 t PRIHTGR«(49)IL0C 
ATE23, 10iPRIMTCRI(31)iLOCATEt9,3iPRIMTGR 
*<5B)iL0CATC26, I 7s PRIKTCRt(35> IL0CATE33, 
31PRIMTGRK31) 

82 LOCATE30,6!PRINTGR»C39>"LOCATE33, IBiP, 
PINTGR«(5I)iL0CATE3«, l#iPRINTGR«<38) tLOC 
ATE33, l7iPRIMTGR»(31)tLIPlE(5,5)-(I2,3)GR 
f'42). ltLINE<13, 1)-(13, 16>GRIC44), 11LINE 
d, 19W9, IB)CR*(42>, ULIMC(B, 17 )-< 16, I 7 
)GP*(42), |tLINE< 14, 18)-<22, IB)CR«42),1 
33 LINE(21,I4>-(ai,)9)GRt<44>,liLlNE<2B, 
3'-' 32,3)GRi(42>, 1 iLIME(e6,4)-(26, 16)CRI 
(44),HLUE<27, l7)-(34,17)CR«(42),Hl.ItlE 
(3l.6)-(3B,6>GR»(42),HLINE(27, IB) -(34, I 
0)GR<<42), ULIME(31, 14 ) -(38, 14>CRI(42), 1 
>LIME<27, 17)-(34, 17>CR*(42). I -hu . 14IG0S 
UB92i RETURN 

84 C0LOR1 1 LOCATES, 3i PRINTGRK51) i LOCATES 

, 17iPRIMTGR«(5l >sL0CATE3,3iPRItirGR«(33)i 

L0CATE3.17iPRIKTGP*(33HLOCOTE6,6iPRlNTG 

Pf'49)iL0CAT£6.HiP»INTCR«<32>tL0CATE9,6 

:PPINTGR»(33)!L0CATE9. 14iPRIHTGRt(35) i LO 

CATCH, l4iPRIHTGR»(34)iL0CATEll,6iPRIMTG 

Rt<36> 

03 L0CATElI,3iPRIMTCRI(49)tL0CATCH, 17iP 

RIMTGRK32)iL0CATEt3,3sPRINTGRI(53>iL0CA 

TE17,3iPRINTGR«(31)iL0CATE15.9iPRINTGP»( 

36*iL0CATE12,9iPRINTGRI(3B)iL0CATE12, 111 

PRmTCRI(3«)»L0CATEt3,lliPRIMTGRI'34)iLO 

CATC 13, l7!PRIf(TCPK33f IL0CATCI7, 1 7* PRINT 

GRI'31) 

86 L0CATC18,6iPRINTCR«<49)iLOCATC!8. 14 tP 



PlNTCRIi52liL0CNTE2l.biPRINTGR*(49)iL0CA 

T£21,MsPPIHTGPI(52'':L0CATE22,3sPRINTCRt 

(5e):L0CATE24,3:PPINTGR«(54)iL0CATE24,9i 

PPINTGR*<'35)iL0CBTE27,9sPRIHTGRI(51)!LOC 

ATE27, I UPRINTGRKSl MLQCATE24, IHPR1MTG 

RK53) 

87 L0CATE24,:7iPP!NTGRI(36)iLOCATE22, 17t 

PP1NTCRI(3B>'L0CATE20,3:PRINTGRK49)IL0C 

ATE28,6!pRIKTGR*(53)iL0C0TE3B,6iP«IMTCRI 

(54)!LOCATE30, 14ipRINTGRK56)iL0CATE28, 1 

4:PPINTCRf(53)tL0CATE29, 17iPRINTGR*(32> i 

LOCATE33,3tPRlMTGR«(49)fL0CATE33, 14IPRIK 

TGRK32) 

89 L0CATE34,3iPRINTCRI<3a)iL0CATE36,3iPR 

IMTGR*(54>1L0CATE36, 17iPRINTGR*(56)iL0CA 

TE34, 17!PRIMTGR*(30)ILINE(3,4)-(3,16)GR* 

(44), ULINE'6,7)-(6, 13)CRK44), I tLIMEdl 

• 4>-(H>3)CR*(44), HLINC(9,7)-(9, 13)CR«( 
44). Ill . iNEdl, I3)-(11,16)CR*(44), I iE*-CR 
1(48) 

89 LIMC(l3,4>-:i3.8>QR*i44>. HL1NEU4.9) 
-(13,9)CR»(42),1sLInX(15, 12 '-( 15, 16)GR»( 
44 >, HLINE(18,7)-(18, 13>CR»(44),11LINE<2 
1.7)-(21, |3)CR<(44), 1ILIMC< 13,11 >-( 14,11 
>CRI(42), HLINE(24,4)-<24,B>CR»<44>,1ILI 
KE<23,9)-(26,9>GRI(42),HLINE(23,1 l)-(26 
, 1DCRK42), t 

9B LINE(24, 12)-(24, 16)CR«(44), HLINE(28, 
4<-<28,5)GRl(44), HLINE<3B.7)-(3B, I3>GRI 
(44), ULlME(2B,13)-(2fl, I6)GR*(44), 1 t LIME 
(33,6)-(33, 13)CRI(44), 1 i LINE<36, 4)-<36, 1 
6)CRt(44), lsLOCATC4.3iPRINTCIiL0CATE4.I7 
iPRINTE*>LOCATEI0,6lPRINTEtlLOCATElB, 141 
PRINTEf 

91 LOC ATE 16, 3i PR INTEI i LOCATE 16, 17IPRINTE 

• !L0CATE23,3iPRItlTE»iL0CATE23, 17iPRINTEt 
iL0CATE29,6iPRIMTC»'LOCATE23, mPRINTEM 
L0CATC29,6iPRIMTC*iL0CATEe9, l4iPRIMTEItL 
0CATC33,3iPRIHTEHL0CATE33, I 71 PRlNTE»r DM 
-. 13IC0SUB92IRCTURN 

92 DM-0M»BA1 IFDI ■ I THEMPO-3: REST0RC99ELSC 
IFD!-2THCMP0-3:RCiTi)REI09ELSEP0-8iREST0R 
£181 



Suite page 24 



NUMEROS 
CARACTERES 



Passionn6s du jeu tetovise. en(rainez-vous en douceur 
par celte sympathique version de poche. 



Mode d'emptoi : 

Lancez le programme par F1 P2 En zone # 0. so trouve te Iirage 
des chiflres : re sous programme propose egalemeni une solution 
au cas ou vous ne pournez Irouver le bon compte En zone » 1. se 
irouve le tirage des lettres : ce sous programme vous demande de 
choisir enlre voyeile el consonne (OV a larfichage). il vous sulfrt de 
presser la louche correspondent a votre choix Vous avez droit a 9 
lett/os qu. une tois twees, font apparaitre le tirage delinrtif. Vous 
avez 45 secondes (idem pour tes chiftres) pour trouver le mol le 
phis long. En zone # 2. se trouve le programme principal qui se 
oontente de gerer la part* seton les regies : un tour des chiflres 
pour deux tours des lettres. 




FX 702 P 





ATTEr/TrON. ATTENTIOM 

Pour to molt d«o0l vovt 
■vvz droit * un noi n iio Qurr- 
drupto. r*«»rVM-to Of mafrv 
tvnant crtcz votre ehareurtor. 
P,n/tton to 2 Aout. 







IIS! 

1 PRT "US CHIFFR 
£S" 

2 t="45 SECOHSES" 
IB «=IHT (!Wt«6)* 

I 
I! E=IHT (RftHI.IBi 
+1=C=IHT (RflHli 
18>tl:D=IHT m 
HW8H! 

12 E-IHT (HWM18) 
*l:f=BI (KftlK 
18H1 

13 y=ikt ima») 

14 IF V=8:S=25 



USX 



15 IF V=1:S=58 

16 IF V=2;6=?5 
1? IF V=3;S=188 
28 !F 11=1 THEN 288 
38 IF 11=2 TKH 388 
48 IF 11=3 TKH 488 
58 IF IM THEN 588 
68 IF 11=5 THEN 688 
78 IF 11=6 THEM 788 

288 H=e*C+E-F*6*0 
235 IF IK 188 THEM 1 

8 
286 IF H>Ie3 THEN I 

8 
218 PRT $:PST EiFiC 

.D;8;S,"<":H 
228 S38 5e3:PRT 8;" 

•*SCS***iEs"-", 

F;**";6;"t";D;" 



=*;H:ST0P :KET 418 
238 SOTO 18 
388 I=6tF«8*D-C»E 428 

385 IF K188 THEN ! 
8 

386 IF I>1e3 THEH I 



FRT l:Pl!T C;D:E 688 P=B«D*E-F*S*C 728 SSB 5e3:PRT Ci" 

:6;f:Bj-<-; J 685 IF P< 188 THEH l ♦■;D;"«';E;"*-t 

6S6 5e3:PRT Ei" 8 £;"-";F;"t";6;" 

*";0;">";F;"-"; 686 IF P>1e3 THEH 1 =';H:ST0P :RET 

S;"»";c;"t";B;" 8 738 60TO 18 

=";J:3T0P :ET 618 PRT J:PET CiDlE 5888 0=01 

SOTO IB S6SFSBi*<"lf 5818 IF 0>335 THEH 5 

K=F»B-CtD«Er*E 628 SSB 5e3:PPT B;" 838 

585 IF K188 THEH 1 t*iDi*«*iE!'-"i 5828 SOTO 5388 
8 Fi*4»i"SViCi" 5838 0=8:PRT "TEHPS 

586 IF »1e3 THEH 1 =*SP!ST0" :R£T ECOULE !":ST0P 
8 638 SOTO 18 -PRT "SOLUTION. 

518 PRT |:PRT D:E;F 788 H=C*0tEtS-F*8 ..":RET 

iC;E;8;"("i" 785 IF H<1E8 TKEH i 
528 SSB 5e3:PRT Fi" 8 

t";8;"-";C;"t"; 786 if h>U3 theh i 
» BVlfeViB" 8 

486 IF J>Ie3 THEH 1 =";H:ST0P :RET 718 PRT lift, E;B;C LIST 

8 538 SOTO 18 IDiFiSl'CiH 1 WIT 25:PRT ' 



438 
318 PRT f:PRT D;C;8 568 

.'iBft'PSI 585 
32! 6S8 5e3:PRT Si" 

t";F;"«";B;"t"i 

D;"-";C;"«":E;" 

=": U STOP :RET 
338 SOTO 18 

4ea j=E't>«F-6tc<8 

465 IF K168 THEH 1 



LISTING 2 



BOKHE P8RTIE !" 
5 V8C :$=8:0=3:E= 

8: PR! IK LETT 

RES" 
18 l="BEI0UYBC0fSH 

miMRSTViEr 

29 IF KY="";60T0 

29 
38 IF KV="C";S0TO 

48 U=IHT iRHN»«5)r 

1 
58flt=HIDHI,l):K!= 

Httfl! 

51 E=E»1:]F E!9TH 
EH 2888 

52 SOTO 28 
888 V=IHT !RRHI>2: 



1815 



*I:1F V<?;6OT0 3818 RET 



i!=»::':v,:;:;i= 
sua 

KMMFES? W 

a 2663 
60TC 28 

PRT ■ C/V :=--> 
"iEttHf.RET 
PJT "45 SECOHCE 
S" 

PRT "TiRfiSE— ! 
"!6t»KI 



LISTING 3 



LIST 
1 Hilll 25:PRI " 

80HHE PRRTIE !" 
18 SSB 18 
28 SSB II 
36 6S8 II 
48 SOTO 16 



j^2S 




CacU£2 c£TTE 9C\e! 
A M-*-jyX 

DENTS.'! 



-Ztftw ZIV/'M< 



2070 ppint 

2080 print-vous devez * l'aide du 

brave ■•Bear colored tous leg cube 



Suite de la page 3 2100 prii 



"DE LA PYRAMIDI 



l*0O VP0»-EB21?,22 
1**0 VPOKE821S, lOO 
1700 VPOKES219, 103 
1710 VP0K.EB220,70 
1720 VP0KE8221, lit? 
173© LOCATE0.24 

41414141 
11414- 



1*70 1 



I7SO PBIH1 

34' 
17VO PRINT 

B3- 
I BOO PBIHT 

14- 
IBIO PRIM! 



33* 

1B20 «*l 



9383a3S3B383e3B3e3»3a2B 



LE DERLACEMENT SE FAIT 
EM O I AGONAL E. -I 

2120 RRINT-EVITEZ LE SERPENT BUI 
EST *| 

2130 RRIKT-HOKTEL AIHSI WUE LE VI 
DC AUTOUR. DE LA PYRAMIDE." 

21SO ROlNT-ATrENTlOM' SI VOUS REPA 
SS€Z SUR UN CUBE DEJA COLORE IL'l 
2I&0 PRINT' RERRENDOA SA COULEUR 

INITIALE. * 
2170 RRlNTiPRINT-VOUS POUVEZ OBTEN 
IR DU BONUS EN NANOEANT LE* FRUITS 



21 BO « 



I VOUS DE JOUEW. 



1 POUR LES EXPLICATION 
TAPE2 1 



roua touch 



1B30 Pt»IH 

1S40 PRIM 

34" 
1BTJO PR IN 

•S3- 

I 8*0 PRIM 

IB70 P*!N 
-»«" 

ia«o pr in 

•3* 



IVIO ( 

U 1 

1920 I 
41414' 
I930 PRINT- 

«MM' 

l'i A'. PI 

3B3S3* 

1 930 PRINT 

1970 IMHIMItI 

19BO IPK»--|*TM»£N2O20 

19VO I>CK»--2-THCMBT-l;0OTO222O 

200O lFKB--3-TMENST-0:SOTO2220 

2010 Il e KB<)-|-ORKB<>'2-ORKB< >-3' 

EN 1 970 

2020 PRINT 

203O PRINT 

2040 PRINT- |4 

7030 PRIM 

J0*O PR IN 



2190 KB-INKET* 

220O IPKB---THEM2I90 

2210 OOT01730 

2220 PEN 

2230 REM PYRAMIDG 
2240 REN -- — •---. 
2230 PRINT-SCORE 00000 HI. SCORE 

ooooo- 

22AO PRINT-BONUS OOOOO NIVEAU 

Ol 14- 

2270 PRINT* 34 

22BO PRINT- 
2290 P«INT* 
2300 PBINT- 
2310 PRINI* 
2320 PRINT- 
2330 PRINT' 



1274 

3434 
17777-* 

12727274 
34343434 



BZHIO :h IB 3B JB :• 3B 3B 3B3B 



EXPLICATIONS 



2340 PRINT* 

23SO PRINT- 3434343434 

2340 PRINT* 127272727274 

2370 PRINT* 343434343434 

2380 PRINT- 12727272727274 

2.J90 PRINT* 34343434343434 

7400 PRINT- 1272777272727274 

24)0 PRINT* 3434343434343434 

2420 PRINT- 127277727272727274 

2430 PRINT' 343*34343434343434 

7440 PRINT' B3S3«3**3B3*"3a3«3B3 

2430 PRINT 

2440 NSB-RI0HT*(STR«IIO0OO0'*MSI,3 

I !LOCATC24 t 0'PT*INTMS* 

2470 PUTSffMTCO, 4190, lOI , 12,0 

24BO PUItPPITCl, 1210, 30», 12,0 

2490 PUI8I*R1 T«2, (730,301 ,12,0 

23O0 REN ..... 

2310 RSH mi 

7320 REM *-«- 

2330 X-I70TV-IS 

23-10 c-ao:0-9B 

2330 NB--03V13L44CSPD* 

2340 FORT-0TO2OOO 

2370 MS Ml 

734*0 RLAVVISOTLSOAMBDC* 

2390 PUTSPBITIPT, 4X,ri,J2,0 

2AOO REN .—.- — .........- 

2410 REN DC PL AC CMC NT ■•• 
2420 REN ....-.......-—• 

2430 •■•ricKiari 

2440 IEft-4TM«N>l-X*8:T-T-14:PUTSPRI 



TEPT, (X.YI ,,0:G0T02700 

Z630 !FS-2TMENX-]I'(t:r-Y-l4:PUrSPRI 

T6PT, (X.YI ,,0:OOT02700 

7440 IPS-ATHENX-X-8: Y-Y* 14:PUTSPR1 

TEPT, (X.YI . . "10OTO270O 

2470 IFB-BTMENX-X-BIY-V-lArPUTSPRI 

TEPT. IX.YI, ,l:0OTO27t» 

24BO 0OT03OI0 

2*90 REN — — ■— ■ !!■■■■■■■■ ■ 

2700 REN CHANOEMCNT COUL. 

2710 REN --.. — . — -—...-. 

2720 SOUND*), 733 

2730 S0UN0O.233 

7740 S0UND1, 100 

2730 SOUND13.0 

2740 SOUNDI2.733 

2770 FORT-1T070 

2790 NEXT 

2790 SOUNDS ,0 

2800 Z-4143*(X\BI- I (Y\fJI*32)*«3 

2810 IFVPf£EM(2)-32THCN3420 

2020 REN 

2830 REN BLEU- >R0'10E 

204O REN 

2830 IFVrtEKIZ-31»-179tM£NVl*OI**H2- 

311,192 

2840 IFVPtECI/ .■.PI-I.WtlitNvlWMi 

32), 200 

7B70 IFVPEEK(Z*l)-148TMENVPOKEf7*l 

1,214 

78BO IfVI-E(Ki/..i?|.|l!'I.IHIVI'riKI tZ- 

321,232 

2890 IFVPEEK(Z-31 I •I40TMCNVP0ME IZ- 

JI I ,224 

2900 IPVPEEKI2)-17*IHCNVPOHE<2l,20 

«:cB-ca-i :sc>sc<30:sc«-**taHT*(BTR* 

4 I OOOOO "SCI ,3J : LOCATE*, OI PRINTSC* 

:OOT03030 

2910 REN 

2970 REM ROUGE - >BLEU 

7930 REM 

7940 !FVPEf:>-(Z'3l>-192THCNVPO«E<Z- 

31), 128 

2930 IFVPeE*!(Z-321-70OTH£NVPOKEIZ- 

321, 134 

29*0 IPVPEEK(Z*ll-21*THENVPrjKE(Z*l 

I , 148 

2970 IPV-*fitK(Z-32)-232THaNVPOHE4Z- 

32), 184 

2980 IPVPCIK(Z-31)-224THENVPOK*- IZ- 

311 ,140 

2990 IPVPCCMIZI-20BTHfNVPOKC(Z>,17 

*:CS-C*-liSC->SC-30:BC«-RI*WT8l8T»* 

11 OOOOO' tBC),3) :L0CATC4,0:PRINTSC* 

3000 REM ■■■■■■■ 

3010 RIM CUB1S 

3020 REN «-.-«• 

3030 IFCB-43TM4N3V20 

3040 REN -— — -— ........ 

303O REN *lllO'*m -RUIT8 
3040 REN ««™«™™™ 
3070 IFCH*1TH>N3240 
30-M CL-INTi#NO( 1 '•*) 
■■<■■". ■FCL-OrHftMA-134I*-90 
3100 IFCL-lTHBN*-90!i-9B 
3110 |ICL-JIM4K».1IJ:i-II', 
3120 IPCL*3THINA-34:B-144 
3130 I*CL-*1T1*IMA-12B:»-1 JO 
3140 !• M --.r..-H«-i»4; l-l«t 
3 I OO DL-1NHPNDI 11441 
3140 IPDL-0TMSM«P»3tS-'-*lCO-13!CU-' 



3170 lFDL-lTHENBP-B:SR-9:C0"B;CU-3 

3180 IP0L*>2THCNSP-IOlSR-32:CU-ll 

3190 IFDL-3TMGNSP-12:SR-1 1 SCO-1 1 ;C 

U-l 

320O PUTSPRITE4, (A,B),CU,SP 

3710 PUTBPRITE3, (A,I),CO,«*» 

3220 CM«1 

3230 ee-csn 

3240 ifce-i3thenputsprite4, (0,209) 

,cu,sp!putsprite3, 10, 709 1, co, sb: ce 

-o:cm-o 

3730 REN -..-.-.-. 
3240 REM SERPENT 
3270 RiM - — — " -- 

37BO REAOT,*! 

3290 L-L-l 

3300 C-C-T 

3310 D-O-R 

3370 PUTBPH1 TEA, (C,D) ,9,7 

3330 FORT-OTOTT 

3340 MEX'T 

3330 IFL-32THENL-0:REBT0REI300 

3340 IFX-CANDY-DTHIsN3420 

3370 IFX-AANDY-BTHENPLAVVMBI " I SO- 

BO>l3O:BO*.RI0Nr«IBTR*l lOO0O0'*S0l 

,31 ;L0CATE4,7:PRiNrBO-.:PuTBP*rtTi4, 

(0,709) : PUT SPRITES, 40, 209) : CH-0 
33S0 00TO743O 
3390 REN I 11 'I II 

340O REN B*BE«T PHIS 

3410 RCN -——.-. 

3470 PUTSPRHE3, (X*18,Y-BI , 13,2 
3430 PLAY-O3V13LI0D0ADS0* 
3440 f0RT-OT013OO 
3430 NEXT 



3470 
34 BO 
3490 




1 OOOOO ' • MS I , 3 M 



3790 L0CATE8, 13IPRINT' 

380O L0CATS8, !a:P*InT* 0AMf OVSR 



M10 


L0CATI8,17IPRINT* 


HB70 


PUTSPMMiPT, IX.VI.O 


I'll" 


PUTSPR1TI4, (C,D) ,0 


1 1 * a 


PUTSPRITE4, («,»i,0,IP 


imo 


PUTSPRITES, I A, 11,0, tR 


TKA'J 


FOFJT-OTOIOOf. 


M70 


MfJO 


MM 


RESTORE 1300 


HIV) 




l-o:pt->o:sc*o:cb-Oini'1: tt-io 


00T01730 


vtu> 


*1« ——.... 


l«d 


RiM NIVEAU 


39 SO 




3940 


PLAY-O4V13LA4ADOBCFEFEA0BCAC0 


EFAIDOEFLI0SCL3F* 


3930 


SC-GOBO-IOOO 


IftM 


(>C«*'RI0>IT«(STR4(lO0OO0'*BC1 ,3 


V"h 


LOCATE*, OtPRIMTSC* 



3V90 NI*-RIOHT*IBTRB(IOO*NI I ,71 

4O0O L0CATE77,7;PttlNrNI* 

40 I O BO-0 

4070 BO*-RIOMia(BTR*(I00OO0>-BO),9 

4030 LOCATE*, 7-PRINTBO* 
4040 CB-0 
4030 TT-TT-23 



■ ril.lHIJ,-.r| 

SOUND I 7, IOO 
F0RU-8T010 

3300 HOUNDU.I* 

3310 NliXT 

3370 S0UND13,0 

3330 PUISPRIIEPT. I] 

3340 FOUT-OTOIOOO 

3330 NEXT 

33*0 PUTSPB1T6PT, I) 

3370 -M3RT-OT0IOO0 

3380 NEXT 

3390 PUTSPRIIEPT, (J 

34O0 f 

3410 I 

3470 I 

3*3© ' 

3*40 1 

3430 > 



IFTT'-OTMEMTT-O 

L-O 

RESTORE 1 3O0 

PIJT6PHI1E*, (SO, 98 1. 9 

PUTBPRIISPt. r«,Yi ,o 
4110 PUT8PRITE*, (C.DI ,0 
4120 PUTSPRITI4, (A.SJ ,0,Si 
4130 PUISPRITBS, IA.BI ,0,*' 
4140 PLAY*V13O7L3O*0IPDt* 



4070 
4080 
4090 
4100 



4220 
4730 
4240 



3*70 ' 
3*80 I 
3490 I 
3700 I 
3710 I 
3720 1 
3730 I 



I LOCATIA.OTPRINTSC* 

> BO-0 

I BO-fRlOMTBlBIR-X I000O0' *B0I,3 



PRINT* 


949* 


PRINT* 


127274 


PR 1 N 1 * 


343434 


PRINT- 




PRINT* 


3*343494 


PRINT* 




PRINT* 


3*3*3*3*34 




177272727274 


PHINT- 


3*343*9*9*94 


PHINT* 


I2/27277727274 


PRINT- 


3*3*9*3*3*3*3* 


PRINT* 


1272777277727274 


PRINT* 


9*3*34349*3*3*94 




l7/77/777277'7'774 


PRINT* 


34343*9*3*3*34343* 


PRINT* 


B 383B383B 383838 383 


PRINI 




00T07310 





ADVENTURE-LAND 



'CANON xor 



Cherctie pilote 6me>ite pour mission interminable et ris- 
quee; nerveux s'abstenir. 

Pascal AOUMAD 

Moded'emplo ; 

Lors de la frapp* de co programme (environ 1 1 Ko), soyez altenlif 
aux Ngnes survantss : 470. 900. 4000, 4007. 4500, 4520. 5620. 
6240. En ertet, les caracteres " " et "■" enlre guillemels doivent etre 
tapes en mode GRPH 

Vous dispose/ au depart de 3 vaisseaux et devez parcourjr 19 ta- 
bleaux differcnts en evitant les obstacles. Vous vous deplacez avec 
Ves Heches haul, bas et pouvez interrompre a tout moment votre 
parcours par appui sur F6 (carre central). Chaque tableau passe 




vous octroie un vaisseau supplemental; score et carburant sont 
affiches au debut de chacun. Tous les cinq tableaux, vous traversez 
un stage de ravitaillement pour etfecluer le plein de fuel. Arrive au 
bout du parcours, vous devrez ramener votre engin a son point de 
depart en retraversant chacun des tableaux Le BONUS final depen- 
dra du nombre de vaisseaux acquis et du nombre de litres tie fuel 
reslant. Vous pouvez interrompre le generique ou I'affichage de 
GAME OVER par appui sur une touche. 



10 CONSOLEO, 4,0,0,0 

12 F0R1-1T03OOINEXT 

14 CL5IFGRI-OT04O0OSTEP1O00IBEEPI, 

l: HEXt; IF ]HKET*< >**THEN600 



20 font*h28i-*232, 732, 232,232, 232 

,232,732.248- 

30 F0NT*!129)-*232,232,232,23Z,232 

.232,84,0* 

40 F0NT*(I30)-*232,Z3Z,Z3Z.252,232 

.252, 29?, 232* 

SO FONT*'13tl-*232,Z48.232.24B.232 

,248,232.248- 

60 FONT*'132)--l24,Z52. 124,232. 124 

,232, 124, 232* 

70 FONT*! 133I--S4, 232, 232,232,232, 

232,232,232 

SO FONT»( 134I--232.232.232.232.232 

,252,124,232* 

90 fori-ito44:reada,b,c 

93 IFAt M0OTHEN1OO 

96 FORJ-24T031: IFJ-24THENLINE(11S, 
J) -I 119, J>ELSELINEI114, JI-I119. Jl 

97 NEXTIGOTOllO 

10O LOCATEA,BIPRINTCHR*lC> I 



120 DATAO, O. IZS.O.3, 130,3,3. 133.6. 

3, 133.9,3, 133 

130 DATA 12, 3, 133, 13,3,133. 18.3,133 

,19.1,132, 17.0,129 

140 DATA 14.Q, 129, 11,0,129,8,0, 129, 

3.0, 129,2,0, 129 

130 DATAO, 1,131,1,3, 133,4,3. 133,7, 

3. 133.10,3,133 

160 DATA13,3, 133, 16, 3, 133, 100,0,0, 

19,0, 134,1«,0, 129 

163 0ATA13.O, 129, 10,0,129,7,0,129, 

4,0, 129,1.0, 1Z9 

170 DATAO, 2, 131,2.3, 133,3,3, 133,8, 

3.133.11.3,133 

ISO DATA 1 4. 3, 133, 17,3,133,19,2,132 

, 18,0, 129 

190 DATA13, 0,129. 12, O, 129,9,0,129, 

4,0. 129.3,0, 129 

200 FONT»(128>-*0, 0,32, 32, 32.0,0,0 

2 lO FONT* I 1 29 >-*0, 11 2, SO, SO, SO, 112 

,0,0* 

220 F0NT»!I3O)-'24B, 136,136, 136,13 

a, iJ6, 248, w* 

230 A«-*ADVENTURE-LAND* 

240 F0Rt-3TO16:B-IO00IFORJ-128T013 

25Q LOCATEI, llPRINTCHR-SIJ) i I BEEPS, 

i:s-b*iooo:nextj 

260 LOCATEI, l:PRINT**ID*(A*. 1-2, It: 

263 A*-* By Pascal A.* 

270 F0RI-16T01STEP-1I J-16-I 

280 A-SCREEN! J, 1 I ILOCATEl,l:PRINTM 

ID* I AS, I) J I3EEP2S, i: SEEP I. 1 

290 LOCATEJ, 2:PRINTCHR*(AU 

30O NEXT 

304 GOTO310 

303 fort-itoioinextireturn 

306 IFl-2T*+ENRErURNELSEF0RT-lT0I50 

0:NExT:8EEPl, 1: RE TURN 

310 LOCATE 16, IIPRINT' -IIL0CATE16, 

2:*>RINT*D*I 

320 FORI-ITO* 

330 L0CATE4, IIPPINT* -J 

: G0SU830S : BEER29, 2 

340 LOCATE4, I:PRINT*Bj> Pi-cil A.*| 

IGOSUBSOS 

330 NEXT 

360 fcrI"Isto3?ter-i:peepi#zoo, i:l 
OCa*ei, i iprint- * 

361 locatei9-i,2:p**int* 'iinext 
370 fqri-ito2:r£ADA*,b*ilocatei, i: 

phinTa»,TaBi I J IB* I :BEEP1 ,l:6OSU830 



380 DA- 



»#nei mil bout', 'du pa 

390 DATA' en iont«nt »t en*," des 

cendant ... 

400 F0RI-1T013 

403 X-I*4 

«06 J 1-31 -I 

407 FORI1-XT0X-3 

410 LINE! I 1, II -( 119-11 , I I ILINE I II , 

*1I-*I19-II,'11:LINEII1,I)-(I1,J1> 

440 LINE1 119-11, t>-(I19-Il, 711 'MX 

Til, I 

433 FONT* 1 1 281 - - Z32, 232 , 232, 232 , 

,0,0,0' 

460 fori-ito26:reada,b: ifa<. jioothe 



490 NEXT 

5O0 0ATA3.O, 4, 0,8,0,9,0, 13,0, 13,0, 

17, 

310 DATA2, 1,100,0,100,0,7, 1, 10, 1.1 

3,1,13,1, 17.1 

320 DATA2,2,3,2,7,2, 10,2 

330 DAT A3, 3, 4 ,3, 8, 3. 9, 3, 13, 3, 13, 3, 



340 FORI ■ITOIOOO: NEXT 

3SO ' • Car-act***** pour J*u * 

600 F0MT*(128l-*24O, 144, 144, 144 , 20 

8,208.2*0,0 

610 FONT*. 129I-'96,3Z,32,32,96,96, 

96, O' 

620 FONT*( 1301 -'240, 144,48,64, 192, 

192,240,0' 



6 Jo FON1*!13I'-*240, I4«. io. 112, -lu, 

1 76 , 240 , O ' 

640 FONT*! 13211*48,80,80,208,208,2 

48, 16, O* 

630 FONT* I 1331 -'240, 144, 192,32, 4B, 

48,240,0' 

660 FONT* 1134) -'240, 144, 128,240,20 

8.208,240,0* 

670 F0NT*ll351-*240, 144, 16, 32, 96, 9 

6,96,0" 

680 FONT* (1361 -"240, 144, 144,96,208 

.208,240,0* 

690 FONT*! 137) --240, 144,240, 16,48, 

176,240,0' 

700 D1HS*(10):KEY*(6)>* "-CHR*(I 

9) 

710 F0R1-0T09:S*III»CHR*!128*1I INE 



2620 LINEII, Ol-II, J) :L1NE!1 , J. 31 

1,311 :nexT:Heturn 

2690 ' » Tabl*au 8 * 

2700 FORI-40T090STEP5ILINEII,OI- 

,311 : NEXT : FOR 1-2T029STEP3! LINE 14 



•(•O, 



S, 13, 16, 13, 16, 1 
3, 16, 10, 15, 13, 13, 13, 14, 13, 14, 13, 14 
Z723 DATA 12, 13, 12, 13, 12, 13, 12, 13,1 



6,252.0,0* 

730 F0NT*1139l--0,O,O, 192.48,232,0 



2730 DATA15, 16, 14, 17, 14, 17, 14, 17,: 
2733 DATA13,16,16,17, 16, 17, 16, 17,: 



, 13,14,13, 14 



740 V*-CHR*C138I *CMR*!139).- • 

730 FONT* I 1401 -'0,212, 148,212. 148, 

136, O, 232" 

760 FONT* 1 141 1--0, 104,72, 104,72, IO 

8,0,232* 

770 F»-CHP*i 140! *CMR*I 1411 

780 FONT*! 1421 -'232,232, 232, 232,23 

2,232.232,232* 

790 D*-CHR*( 1421 *CHR*< 1421 

BOO FONT*! 1431 -*0, 136, 80, 32,80, 136 



1000 iffu<=othen4600 

1001 if (ta-in)/3-int( (ta-inj /51amd 
ta< >iandra< >tathenra-ta:gosubsooo 

1002 gosub430oigosub4ooo 

1003 lFTA>9THEN102O 

1010 ONTAGOSUB2000, 2100,2200,2300, 

2400, 2300,2600, 2700, 2800 

1015 GOTO 1030 

1020 0NTA-9G0SUB2900.30OO, 3100, 320 

, 330O , 34O0 , 330O.-3600, 37O0 , 3B00 

IO30 PSET 132, 131 : F0RI-4O0OT00STEP- 

4001 beep i, 1 1 next i preset (32,13) i Jl- 

1035 J-15 

1040 F0RI-33T0J18 

105O ST-STICX(O) IIFST-1THENJ-J-1I I 

FJ<0THENJ-31:SEEP28,1 

1O60 IFST-5THENJ-J*!: IFJ>31THENJ-0 

:8EEP2S, 1 

1070 IFPOINTfl, J)TMENGOSUB4100:GOT 

DIOOO 

1O80 P5ETCI, J):PRESET!1-1, 31): Jl-J 

1O90 5-s+ io: next: fu-fu- iooo:gosub4 

200: G0SUB43O0: FORI- 1T0500: NEXT 

1095 I FFU< -OTKEN4600 

11O0 Vt-VI*l:TA-TA»IN:IFTA-20THENI 



1101 IFTA<lTHEN7O0O 

11SO G0T01OOO 

1990 ' • T 1 bl-.u 1 * 

ZOOO J-lZ:F0RI-4OT0120STEP3 

2010 A-INT(RND(I)#7l-3 

2013 J-J»A: IFJ<0THENJ-OELSEIFJ>27T 

MENJ-27 

2020 LINE<I.J)-(I.0):tINE!I,3*4>-( 

I, 31)1 NEXT 

203O RETURN 

Z090 ' » Tableau 2 * 

Z1O0 FORT-4OT01OOSTEP7 

Z1IO A-INT!RNDIl>»7)-3 

Z120 lineit,o)-it*io,I3*ai:line(t* 

10,1R'A)-(T*20,31 1 
2130 mext:return 
2I90 ' * T*bl*au 3 » 
2200 F0RH-0TO45BTEP44 

2204 J- 12 

2205 FORI-40*NT032*N:LlNeiI, 01-11, 
J I : LINE (I, J -3) -(I, 31 J :J-J-1:IFJ(0T 
MENJ-0 

2206 NEXT 

2210 J-31:F0RI-33*NT062*N: Jl-J-27: 
lFJK0TMENJl-0:i.INEII,31)-<I,J*31 
2220 LINEII, JI I -(I, J): j-j-i:next 
2Z30 J2-0: J-23:F0RI-63*NT0B3*N: Jl- 

J-27: ifjkotmenji-o:line<i. J-5I-<I 

,311 

2235 IFI>71THENLINE(I,0) -(1,321 :J2 

-J2*l 

ZZ40 LINEII, Jll-ll, 3) : J-3*l:NEXTI, 

2250 FORI-111T01I9:FORJ-29T031:PRE 

SET It, J) : NEXT J, I : RETURN 

2290 ' • T*bl*au 4 . 

230O FORI-40TOI19STER.3:PSETII,RND 

(11*321 : NEXT .-RETURN 

2390 ' • Tableau 3 • 

2400 J-0:F0RI-3ir044:LINE(I,0)-!I, 

->:line(I,3i>-(I,31-J> :j-J«i:next 

2409 l-12:FORI-43TOU8STE>*2 

2410 A-INT(RND(1)*2) : IFA-1 THEN J -J. 
2:lFJ>24mENJ-2Z 

2413 IFA-OTHENJ-J-2: IFJ<lTHENJ-4 

2420 LINE<I,0>-!I,J):LIN£II,J*6>-! 

I,31)!LtNE(I*l,01-(I*l,J-ll 

2430 LINE(I*1,]*8)-(I*1,3I) :NEXT 

2440 RETURN 

2490 ' • T.blt.u 6 * 

2300 F0RI-40T0U9STEP7 

2310 F0RJ-IN0D2T031STEP2:PSCT(I, J) 

:NEXTJ, llRETUPN 

2390 • • r«bl*Au 7 • 

260O J-14 

2610 FORI-40r0110STEP10:A-INT(RND( 

1)*91-4:J-J>A:IFJ>30THENJ-Z8ELSEIF 



Z740 DATA12,13,11,12,11,12, 11, 12, 1 

1, 12, 10, 11, 11, 12, 11, 12, IO, 11, 9, 10, 

10, IO 

Z790 ■ * T*bl*au 9 * 

2800 J-12:F0RI=40T0I19STEPZ:A-INT( 

RND(11*21 

2810 IFA-OTHENJ-J-2: IFJCOTMENJ-2 

2820 IFA-lTHENJ-J*2:IFJ>26THENJ-24 

2830 FORI i»itoih:line III, J>-(I1,0 

1 :LIN6!I1,J*6I- 111,311 -NEXTI1, I : RE 

2890 ' * Tableau 10 * 

2900 f0ri-4oto119:line(i,01-(i,311 

:next 

2910 j-7:fori-40TOii9:preset(i, ji : 

j-j-i: ifj<othenj-3i 

29zo next: return 

2990 - * Tableau 11 * 

3O00 F0RI-40TaiI9:LINE(I,0>-(I,lI) 

: LINE! I, 191-11,31) :N6XT 

3O10 FORI-40T0120STEP10:LINE(I, 11) 

-!1,131:LINE(I*5,I5)-!I*S,19) :NEXT 

: RE TURN 

3090 ' * Tableau 12 * 

31O0 J-I3:F0RI-40T0119STEP3:A-INT! 

RND(Il*9l-4: J- J* A: IFJ>26THENJ-24 

3110 lFJ(lTHENJ-3 

3izo forii-itoi-i:line(I,oi-(1i, J) 
:line(U,J*4)-ii,31>:nextii.i:retu 

3190 ' » Tableau 13 * 

3200 f0ri-4ot0119:line!i,0)-(i,31) 
:next 

3210 J-13:F0RI-43T0II3STEP10:A-INT 
(RND! 1 )*2) : IFA-OTMENJ-J.l : IFJ >26TM 
ENJ-24 

3220 IFA-lTMENJ-J-l: IFJ< 1 THENJ-3 
3223 F0RI1-I-3T0I:PRESET(I1. J*2I :N 
EXT:FORI1-ITOI*4:FORJ1-JTOJ*4:PRES 
ETII1.J1) 

3230 NEXT J 1,11,1: RETURN 
3290 ' » Tableau 14 * 
3300 F0RI-39T0IO9STEP20:F0RIl-ITOI 
■93TEP.2: A-INT IRND( II #31) :PSET(I1, 

3310 NEXTI1, I : RETURN 

3390 ■ • TABLEAU 13 • 

3400 J-12:E-6:FORI-40T01 19: A-INT (R 

N0( 11*2) :B-INT(RND( 11*2) 

3410 IFB-ITHENE-E'l: IFE>10THENE-9 

3420 IFB-OTMENE-E-l: IFE<4THENE-3 

3430 IFA-OTHENJ-J-l:IFJ<lTHENJ-2 

3440 IFA-1 THENJ-J*!: IF J >30-ETHENJ- 

J-2 

3430 line(i,0)-(i,j):line!i,j»e>-( 
1,31) :next:return 

3490 ' * Tableau 16 • 

3300 LINEI40.31 1-1 119,31): j-o:fori 

-4ir055:LINE(I,O)-(I, J I : LINE (1,30- 

J ) - ( 1 , 30 1 

3303 J-J*l 

33IO NEXT:CIRCLE(73, 131 , I4IFORI-36 

T061:LINE(I,O)-(l, 14 1 : LINEII, 161 -( 

1,31) :nExt 

3320 preset (61, 131 : fori -62to08: for 
j-ot014:pset<i, jl :peetii,30-j1 
3330 ifp01nti i , j*i i thennextielsene 

3340 F0RI-B9Tail9:LINE(I,0)-<I,31> 

I NEXT 

3350 J-INT(RN0(l)»21)*3:FORI-73TOl 

9:preseti i, ji :next 

3360 FORI -1 108: CIRCLE 173, 131 , ItNEX 



3390 ' • Tableau 17 * 

3600 f0ri-4oto119step2! j -int (rnd ii 
>*32>:line(i,*i- (1 19, j) inbxt 
3610 f0ri-40toi 19siep2: pset ( i ,rnd ( 
ii»31) :next:return 
■■>.■".' ■ * Tableau IB « 
370O 1-43: J-2 

3703 F0RJ1-OT031STEPI J*2 1*3! FORI 1 - 
OTOJICIRCLEII. Jll , IllNfXTIl.Jl! 1*1 
t 1J*2)>2 

37 IO IFI>1 19rHENRETURNELSEJ-J>l:0 
OT03703 

3790 • » Tableau 19 4 
5800 J-8:F0R!-40TOlZ0STEP4:A-InriR 
ND(l)#2i : IFA-1 THENJ-J »4: IFJ>3ITHEN 
J*27 

3810 IFA-OTHENJ-J-I : IFJ(0THENJ-4 
3820 F0RJI-OT0J5TEP4:LINE! I. Jl J -( 
1*4, Ji I 

3830 IFJ1>3THENLINE-'I*4,J1-4):LIN 
611, Jl 1 - II , JI-41 

3840 NEXtJl:FORJl-J>6T03!ST£P4-LIN 
F. ' ! . Jl ) -<I*4, Jll :LIN£-(I*4, J 1*4 I 
3B43 LINE! I, Jl) -I I, Jl*4) 
JB50 NEXTJ1, 1IRETURN 



////-, 'Fuel ",FU*[ :LINE(30,01-(30,3 
II 

4005 1fso0theng0sub4200 

4007 ifta>9thenlocateb,i:print'sta 

GE : -1S*(TA-10I :F0Rl-3OT01STEP-3:B 
6EPI, 1INEXT 

4009 IFTA)9THEN4020 

4010 LOCATES, ITPRINT'STAGE *|S*(TA 
I | :F0RI-30T01STEP-3:BEEPI,1:NEKT 

■lozo fori-ito30o:next:locate8, i:pr 

INT* -IIRETURN 

4090 ■ * Explosion • 

4100 FQRC-2T060STEP10:C1RCLE1I-1, J 

I ,C:8EEP40*C,l:NEXT:VI-VI-l:IFVI-0 

4110 CLS:PRlNT'Not*bre de valaaeaux 
•IFU-FU-1000 

4 120 ifvk7thenf0r1-it0vi :printv*i 

:NEXT:GOT04140 

4130 PRINT* 'VI|CHR*(1431 I * * 



iV* 

4140 FORI-ITOSOOINEXTIRETURN 
420O R*--':Z-10*S:A*-STR»(2):L-LEN 
(A*) :B*-MID*(A*,2,L-21 
4210 F0RT-1T0LENIB*! : R-VAL («t D* IB* 

4220 L0CATE3-LENIB*! , l:PRINTR*l :RE 
TURN 

430o forc1-2t08step2:forc-2*c1t060 

• c1step10: circle! i -1, j i ,c:8eep40»c 
,i:nextc,ci 

4305 f0ri-ito10:a*-inket*:next 

4310 FORI-0TO9 

4320 Pl-66-l:P2-76*I:P3-I4-I:P4-lA 

4330 LINE(P1,P31-!P2,P3I :l!NE-!P2, 
P4) ILINE- (PI ,P4I :LINE- (PI ,P3> 
4335 IFINKEY*O"THEN4370 
4340 F0RP-Pl*lTOP2-i:PRESETlP,P3*l 

• : PRESET (P.P4-U: NEXT 

4330 F0RP-P3*lTOP4- I : PRESET IP1*1,P 

i : PRESET I P2-1, PI INEXTP, I 

4360 L0CATE10, 1 : PRINT "GAME* , TA8( 10 

I i 'OVER* 

4370 GOSUB4200 

4373 FOR I -0T0301 PRESET (1,71 : NEXT: F 

0RI-8T013:PRESETi30, II :NEXT 

4376 LINE (0,61 -131, 61 ILINE- (31, 16) 

:LlNE-(0, 16) 

4380 SC*--*:FOR1-OI04:SC*-SC**CHR* 



tEEN < . 



: HE ■■ 



LEN(A*I 

3001 B*-"ID*U 



•• I. 



1^ i! I - ■ 



-THENP 



300Z NEXT 

3003 FORI-1T0600:NEXT:S-S*IOOO 

3009 CLS:L0CATE16,3:PRINTF*I ILOCAT 
E 16,01 PR INTO*, , TAB (161 ID* 

3010 LI NE (12, 01-112, I4IILINE 112,31 
) - ! 12,17) : LINE- 126, 311 ILINE ( 17, 14 1 

- ( 29 , 3 1 ) 
3O20 LINE 127,0) -132, 31 ILINE- (36,31 
I L I NE - I 36 , 3 1 ) ! L I NE ( 30 , 1 - ( 3 2 , 2 ) f L I 
NE-136,2) 

3030 LINE- 136,01 ILINE 144, OP -(44,3) 
ILINE 144, B) -(44, I 1 I :L INE 144, 131 -14 
4,271 

3035 LINE (44, 301-144, 31 I 
5040 LINE (45, lOI -130, 10) :L INE- (37, 
171 ILINE- 159, 171 

5030 LINE '45, 161 -(SO, 16) : LINE -(34, 
201 :LINfc-(39,20l 

3O60 LINE(43,41-(30,4) ILINE- 134,0) 
;CIRCLE(3S,7I ,6: LINE 162,01 -167,31 
3070 LINE -171, 31 : LINE (CO, 161-167,9 
I ILINE- (71 ,91 I LINE (72, 61 - (77,61 
M080 LINEI7Z,8l-(/4,B)!LINE(77,6l 
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3090 L1HE(55,3I (-133,781 :LINE- 
281 ILINEI3S.27I -138,251 ILINE 138,23 
1-138.21) 

SiOO CIRCLe<S0,23>,4 
5110 LINEI60.20I - (67,701 :LINE- 
241 : LINE-' 77,24 1 ; I. INE- 177, 101 ILINE 
-167, 201 

3120 FURI-OtO!5:LINEf79.I,3l-l 1 
9» I, 311 ILINE ( 7o-I,Oi- I **7* I, 1/2 1 : ME 

3130 F0RI-1O9TO1 19;L1** 

I LIME 1 1, 16>-(I, 311 SMEXI 

5140 F0R1-8OTC92STEP.5:' 

1*32) :PSETtI,AI :n£xt 

33O0 PSET (I, 151 :FORI-40OOT0OSTE>»-4 

OOI BEEP 1, 1 1 NEXT I PRESET' I, 1311 1-13 

5510 F0^I-iT0IO2: IFP01NI II,))Tt*SMG 

0sub4 ioo: g0t05o09 

3320 -*set*i.j*:prbset-i-i,ji 

3530 ST-SriCK(Oi:IFST-lTHENJ-J-i:I 

FKOTHENJ-3IIBEEP28, I 

5540 IFST-3THENJ-J*l: IFJ >3I TMtNJ-O 



4j90 fori-it04ilocateo, iiprini' 

■i:fort-itoioo:next 
44oo located, 1 :printsc*:beepzq,4:n 

EXT 

44 IO FORI-1TO4O0: IFINKEV*< J"THEN4 

420SLSENEXT 

4420 CLSIPRINT' Une autre parti- 9 

*,,* O ou N'i 

4430 FORI -14ICI24STEP10I LINE (34, II - 

142,1) ILINE '76,11-184, I) I NEXT 

4440 F0RI-34'042STfc*Reil. INE (I , 131 -I 

1,231 ILINE I 1*42, 131-1 1.42,231 INEXT 

4430 A»-IN*;EY*: IFA«i >'0'ANDA*( )'N* 

'HEN4430 

4453 IFA*--0'THENCIRCLE(38, 191 ,81 F 

OHI-4000T00ST€P-lOO:BEEPI, II NEXT IG 

O1O900 

4460 C1RCLEO0, 191 .BIF0RI-4O00I00S 

IEP- 100: BEEP I.l: NEXT 

4462 CLSIPRINT Salut ■*,* a bl*n 

lot* 

4499 END 

43O0 IFFU-IOOOOTHENFU*-"! ////*! GOT 

04330 

4310 A*-STR*IFU1 !8*-MID*(A*,2, H :B 

-UAL IB* J 

4320 FU*-'/*>S«(BI »*///■ 

4550 RETURN 

4590 ' • Panne » 

4600 CLSIA*-' I-poiiiDIt d'aller 

plus loin ... plus de carbur 

anf 

4610 F0RI-IT0LEN(A*I 

4620 B»-NID«IA*. I, 1) I IFB*-- *THENP 

R I NTB* I IBEEPO,2:GOT04640 

4630 PRINTB*) IBEEP1, 1IBEEP0.I 

4640 NEXT;F0R1-1T0I0:A*-INKEV* 

4630 NEXT:G0TO441O 

490O ' • Ravltal lleaent * 

300O CLSIPRINTIA*-* Nlmgn d* 

ravftal 1 le**nt . . . ' I FORI-1 TO 






3330 NEXlIFORJl-JTOlSIPtEI 11-1,: 

: PRESET 1 1-1,31-1 1 : BEEP4000, 2: BEEPO 

,2* NEXT 

3360 F0R1-8T013:LINE(96, I 1-II07, 

:NEXT:FaRI-lTO4:FORB-lT031STEPI0:8 

IEPB, 1 

S370 NEXTB, I:FORJ-15TOBSTEP-1IFORI 

■96T01O7: IFI-I02ANDJ-15THEN3390 

5380 PRESET II, J) 

3390 NEXTI, I 

5600 F0HI-I4TO10STEP-l:PSET(102, 1) 

: PRESET ( 102, 1*11 I BEEP400O, 21 BEEPO, 

2: NEXT 

3610 F0RI-1O3TG1 19: PSET (I, 10) : PRES 

ET II-l.lOl 1BEEP4000.Z: BEEPO, 2: NEXT 

3620 FU-IOOOOIFU*--: ////'IRETURN 

3900 ' * Fin du parcours ft 

6000 RESTORE6O30: FORI -1T03 IRE ADA*! 



6010 FORJ-ITOLENIA*! I B*-MID* I A*, J , 
II 

'THENPRINTB*! IBEEP0.2: 



6020 IFB*- 

G0T06O40 

6030 PRINTS*! IBEEPl, 1 I BEEPO, 1 

6040 NEXT!F0RT-lTO20O:NEXTT,I 

6030 DATA'Vou* etes arrive au b 

6060 DATA-Vous avex droit a un r 

■vital I le-ent juto.it I que 

6070 DATA-Puia vous repart*! »n * 
ens Inverse sur le Bene parcou 

6 io0 cls i fori -0t0i&step2i locate 1,0 
:printd*:locatei,3:printd*i inext 

6110 L0CATE12,7IPRINTD*|F*tD*| 

6120 F0RI-1T0200INEXT 

6130 L0CATE0,2:PRINTCHR*(139) 1 1 BEE 

P4O0O, I 

61 40 F0RI-0TO8ILOCATEI.2IPRINTV*i: 

IFlO0THENL0CATEI-l,2:PRINT' *| I BE 

EP4000, 1 

61 SO BEEP4000, 1 : NEXT I FORI -1TO200IN 

EXT: LOCATES, I : PR INT V*, TAB 18) | * 

IBEEP4000, 1 

6135 F0RI-IT02OOINEXT 

6160 F0RI-9T014: LOCATEI, 1:PR1NTV* 

I LOCATE I -1,1: PR INT- *I IBEEP4000, 1 

NEXT 

6170 FORI-STOl UPSET 172, II IBEEPl, 1 

I BEEPO, 2 INEXT 

6180 FORI -73T083I PSET ( 1, ill IBEEPl, 

1 I SEEPO, 2 I NEXT : FOR I - I T04 I FORN- 1 T03 

ISTEPIO 

6190 BEEPN, 1INEXTN, I 

62O0 F0RI«e4T0 73S*EP-i:PRESET(I,: 

) I BEEP 1, II BEEPO, 2 INE XT 

6210 FORI -I IT('BSTEP-lt PRESET' '2,1 

IBEEPl , I : BEEPO, 2 1 NEXT 

6220 FORI-I3TOIS:LOCAIEI, I IPRINTV* 

1 IL0CA1E1-I, III 



6230 L0CAIE18, IIPRINT' *ICHR*II381 

I IBEEP400O, I I LOCATE I 9, IIPRINI' 'It 

BEEP40O0, I 

6233 F0R1-1TO200INEXT 

6240 FU-tOOOOIFU*-*! ////-:REU'RN 

6300 ' * Bonus • 

700O CLSIPRINT* ■*• BONUS ••** 

70 IO F0RI-40O0TOS00STEP-300I BEEP I 

7020 LOCATEO, 1 1 PRINT'Noobre d* val 

sseaux ' I VI ICHR* 1 1431 I ' *|U* 

703O LOCATES, 31 PRINT "Score I - I I PR 

INTUSING'HONaa'isi 

7040 F0Rl-lTO30O:NEXT 

7050 FOR I -VI 10 1 STEP- I I S-G* 10OOIL0C 

ATE6,2:PR1NTUSING'»I''I I-l I I LOCATEI 

1 ,3 

706O PR INI US IMG" Sanaa- ; -.11 IBEEP28, 1 

IBEEPl, 1 1 BEEPO, 21 NEXT 

7O70 FOR I - IT O20OI NE X T I CONSOLE I , 2 1 C 



LSI 



( . ■ 



7075 IFFU-0THEN72OO 

7080 LOCATEO, 1 1 PR INT *L I tres d* car 

bur ant ' | FUI : FOR l-I T03O0I NEXT 

70VO FORI-FUTOlOOOSTEP-IOOOILOCArE 

6,2!PRIN1USIN0-H*NH-| 1-I0OO1 ILOCAT 

Ell, 3 

7095 S-SOOOO 

7100 PRINrUSING**«*N*-|SI IBEEP2S, 1 

IBEEPl, I : BEEPO, Z I NEXT 

7110 F0RI-1TOZ0OINEXT 

72O0 CLSIPRINT- Votre score final* 

:G05UH4200IPRINT, 'Vous at** tr»* t 



C'est nouveau, $a vient de sortir 



I'APPREIMTI 
PROGRAMMEUR 



Monsieur R Meyer aurart loul 
interet a s'assoaer a un pro- 
grammeur de talent pour ren- 
dre ses productions vraiment 
passKtnnantes L'Appntntl 

Sorctof, edite par Amsofl, 
oomporte un nornbre de de- 
fauts de conception relatrve- 
ment iocroyabte : ce feu 
d'aventure ne jou'' pas des 
avantages que Ion pourrait en 
attendre. Visibtement le bas*c 
reste seut maitre a bord de 
cette realisation. rendant 
lusage de ce togoel particulie- 
remeni enervant par sa len- 
teur Une fonction reste remar- 
quabte par sa precision: le 
remptissage des formes s'exe- 
cute magriittquement el rapide- 
ment. Sinon rhumour douteux 
de 1 auteur ne me oonvaint nut- 
lemenl de t'interet de son oeu- 
vre tout autant que le sim- 
phsme du scenario laisse 
une pauvrete d'ima- 
reeite. Dommage, 



JfatfE 
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c elan un des rates jeux d aven- 
lure en francais pour I'Ams- 
trad. 



BIG BLUE 
Y LAISSE DES PLUMES 



Le seut vrai geant de I'informa- 
tique. IBM en roccurence. voit 
apparaitre en lisiere de ses be- 
nefices tes gouffres qui s'ou- 
vrent sous tes pas de ses 
concurrents- Pour le deuxieme 
trimestre de l armee et par rap- 
port a la pehode equivalent 
de 84. te chrffre d'affaires a 
augmente de 2.1% alors que 
fes benefices ont chute de 
pees de 13% passant de 1.62 
a 1,41 milliard de dollars. C'est 
le debut de la decadence... 
Peut-etre Olivetti consent] ra-t-i I 
a accompfir un geste envers 




OLIVETTI GAGNE 
PAR LA BOULIMIE HARD 



Olivetti, le grand recuperateur 
de canards boiteux en informa- 
bque, vient de se pencber tres 
serieusement sur le cas 
d' Acom ; 49.3% des parts ap- 
partiennent desormais au 
constructeur italien, pour la 
modique somme de tl.5 mil- 
lions de fivres (environ 138 mil- 
lions de francs). Cette minorite 
de txocage ne parart pas suffi- 
sante aux itaJiens qui envisa- 
ges une pnse de participation 
qui les conduiraient a posseder 
pres de 100% du capital de la 
sooele anglaise. Si ce 
deuxieme mouvement devart 
avoir lieu. Olivetti mettrail im- 
mediatement en vente la so- 
ciete AcomsofL ne conservant 
que la division hardware. Un 
premier effel de ce racnat par- 
tiel vient d'intervenir en Angle- 
teire ou le BBC B+ est passe 



de 499 Irvres a 469 (sort une 
baisse de I'ordre de 400 
francs). NDLR : si Olivetti ra- 
chete Apple, il baisse le Mac a 
W.000 balles ? 




DES POMMES 
ET DES ANGLAIS 



Jusqu'a present, aucune so- 
ciete de logioel anglaise ne 
s'etart penchee sur les micros 
d'Appte. Recemment, deux 




(mk ooh't 

"* Al> APPt£ 

I a pa/ i<eeP5; 

-*1 THE OocTof!/ 
[AWAf 



maisons d'edrtions ont an- 
nonce leur intention de se lan- 
cer dans la production de softs 
pour la celebre marque. O'une 
pari Softechnics se prepare a 
commeroaitser deux utilitaires 
pour Mac (les deux premiers a 
etre de conception anglaise) : 
Tlmellnlc et Rhythm. D'autre 
part US Gold (encore eux) 
viennent de signer un accord 
de diffusion en Europe des lo- 
gidels de Dalasoft pour la 
gamme Apple //. Le premier 
litre devrait sortir d'ia 1'au- 
tomne, sans doute Bruce Lee. 

Bienvenue dans le club 1 Mais 
ne serait-il pas trop lard pour 
s'occuper de ces machines de- 
considerees dans Wen des 
pays, hormis la France, 



PAPIER LOTUS 


ET PAPIER NATHAN 


Nathan, c'est d'abord et avant 


>'gVft?£0 




tout un editeur de bouqums 




fir 


Rien d etonnant a partir de la 


> \ .■ M I) \ 


que sa filiate CEDIC ait signe 






un accord avec la soctele 


■ ! ^x«^ ~*f 




LOTUS pour adapter et 


fM 


&. 


commercialiser les irvres de la 


sus-dite soctete. On va done 




enfin savoir (dans la langue de 




Moliere) comment se servir du 




\ \ ^ 


programme Symphony. Si 




-*shA - 


vous etes un pro de la gestion 






mais compleiement relit a l an- 






glais, ca vous fait bien plaisir. 


tyMQk 




Les autres. vous vous en 




'outez compleiement. Veuillez 


-~ — "^t»^^~^^ 




sortir de cet article. 







COMMODORE CHANGE SON 

FUSIL D'EPAULE COMBIEN 

D'EPAULESONT-ILS? 



Apres i'annonce de la commer- 
cialisation du Commodore 900 
en septembre. voici I'annonce 
de la non-commercialisation du 
Commodore 900. 
Apres I'annonce de la non- 
commercialisation du Commo- 
dore 900. voici I'annonce de la 
commerdalisaton du Commo- 
dore Amiga en Aout. 
Apres I'annonce de la commer- 
cialisation du Commodore 
Amiga en Aout. voici I'annonce 
de la non-commercialisation du 
Commodore Amiga en Europe. 
Sondage : sur trois decisions 
prises par Commodore, il y en 
a deux qui sont stupides. 




LES MILITAIRES IMPRESSiONNES 
PAR UN SPECTRUM 

La maison dedition Durell 
Software a lance depuis quel- 
ques semaines un simulateur 
de combat Air-Sol nomme 
Combat Lynx. L'helicoptere 
presente dans le jeu existe 
reellement et est fabrique par 
Westland pour I'armee de 1'air 
anglaise. La semaine derntere, 
une demonstration, fort offi- 
cielle. du jeu a ate realisee par 
le PDG de Westland. le Dr JP 
Jones, pour le chef de I'armee 
de I'air, le General JOW Good- 
man. Le show s'est deroule 
dans les tocaux de Westland 
et le logiciel tournait sur un 
Spectrum. Spectrum ? Quelle 
drole dkJee vu les versions sur 
Commodore. Amstrad. BBC et rtema sur la machine la plus 
Electron. Qui done a bien pu pourrie du lot ? Maxwell ou 
pousser Jones a (aire son ci- Sinclair ? Dieu seul le sait. 




JUSQU'OU AMSTRAD 
VA-T-ILALLER? 



Amstrad, jugeant sans doute 
que ses prix etaient trop 
e'eves, a decide de les baisser 
a partir du ler Aout. Le CPC 
464 monochrome passe de 
2990 francs a 2690. Le meme 
en couleur baisse de 500 
balles et se retrouve done a 
3990 francs. Le CPC 664 
(avec lecteur de disquettes In- 
corpore) monochrome chute 
de 4490 francs a 3790 et la 
version couleur de 5990 francs 
a 5220. 

Raison de cette baisse (qui va 
(aire mal dans les rangs des 



conslructeurs. comptez les 
mods !) : larrivee en septem- 
bre du CPC 6128. qui contient 
128 Ko de memoire vive 
Ceci drl. peut-etre que lors- 
qu'ils vonl sortir un 16 bits 
avec 512 Ko. le CPC 464 va 
se vendre a 12 francs el cin- 
quante centimes. Ms en sont 
capables. ces cons. 
En septembre egalement, on 
pourra trouver un crayon opti- 
que pour 290 balles, ainsi 
qu'une RS 232 dont le prix 
n'esl pas connu mais qu'on at- 
tendait avec impatience. 



tAoHSiEv* A/»iTe#l> Mi9i£5 et P&'x / 

^f pevx Ao%j vci! 



>2. 



LES HITS CHANGENT DE MICRO 



L mcomparabie jeu de strate- 
larcade. a moins qu'il ne 
s'agisse d'arcategique. Bowl- 
der Dash n'existait que sur 
des becanes aussi peu 
connues que Spectrum. 
Commodore ou App*e. Des la 
rentree scolaire les petits vei- 
nards proprietaires de MSX ou 




d" Amstrad pourronl 
tranqu*ement avec teur ver- 
sion bien aeux. 

Cuneusement. pour chaque 
version un edrteur d iH»i en l 
s est debartu avec les proWe- 
mes d*adaptation. OrVjn o l o 
ment ecrit sur Commodore et 
Apple par Statesoft. adapie par 
Beyond sur Spectrum, c'est 
Orpheus qui s'occupera d*eoV 
ter et de drfruser la version 
MSX akxs que Mm-orsott (ap- 
partenant a Bob Maxwe>. le 
nouveau prophetaire de S*n- 
ciair) sortira celie sur Amstrad. 
Esperons que ces mumptes 
bricoiages ne porteront pas 
trop prejudice a la quahte m- 
thnseque de ce logioel 



LE PRIX DE LA COMPATIBILITY 



C'est le marasme. mes Ireres \ 
Les conslructeurs s'airachent 
les cheveux, ecartent les oreil- 
les, se mettent le doigt dans 
I'oeil el ne savent plus ou don- 
ner de la tete. La question cru- 
ciale, pour ne pas dire vitale. 
est vaguement denvee d'Ham- 
let : TO BE OR NOT TO BE 
COMPATIBLE? Vous pouvez 
penser : je men tamponne. du 
moment que j'ai un micro pas 
cher, avec lequel je puisse 
faire un max de choses. Halte ! 
Sortez la ironche de voire 
porte-monnaie et essayez de 
comprendre ce qui se passe. 
IBM est le plus gros fabriquant 
et le plus important vendeur de 
micros. Les autres construc- 
teurs ont le choix entre suivre 
et ne pas suivre. Les deux atti- 
tudes presenten! des avanta- 
ges et des inconvenients. 
Unzio : SUIVRE : c'est ce que 
font BULL. LEANORD et GOU- 
P1L en France. Cela signitie 
qu'on s'aligne sur les caracte- 
ristiques d'IBM. mais comme 
celles-a commencent a etre 
vachement demodees. les 
compatibles ne peuvent elre 
que des resucees sans innova- 
tion, Seul interet de I'ulilisa- 
teur. les compatibles sont sou- 
vent moms chers que loriginal 
(voir le Laser PC. dernier ne 
de la gamme). Mais le jour ou 
IBM decidera de baisser fran- 
chement ses prix pas mal de 
conslructeurs vont se ramas- 
ser le gadin du siecle. Apres 
tout, IBM etant le plus gros 
constructeur, c'est lui qui de- 



btes se retament les uns apres 
les autres et b*en mahn cetui 
qui pourra dire ce qui va se 
passer dans les six nxxs Une 
chose est sure : I innovation ne 
tombe jamais dans la disquette 
d'un sourd. Tiens \ Regardez 
la souris et les fenetrages 
lances par Apple. Tout le 
monde utitrse ces pnncipes de- 
sormais. Ca nest pas pour ca 
qu'Apple vend plus de Macs 
On arrive dans la construction 
intormalique avec une bonne 
idee, on en repart avec un IBM 
ou compatible. 

Bon, Et les petits micros dans 
tout ca ? Alors la. c'est le bor- 
del total Tout le monde se lout 
de la compatibilite puisque la 
plupart des petits micros n'utili- 
sent pas de disquettes. Mais 
ca ne va pas durer Les hob- 
byistes en auront rapidement 
plein les botles de s'emmerder 
pendant que lescargot-ma- 
gneto charge un programme 
nul en une heure. Puisqu'on 
ne joue pas sur la compatibt- 
lite. il faut se rattrapper sur 
autre chose : la publicity l 
Apres tout, c'est encore le 
meilleur moyen de vendre. et 
ca peut convaincre les maqa- 
sins de linteret du produit. 
Pourtant. avouons-le, les petits 
micros n ont qu'un interet iimrte 
et apres un an de manipula- 
tion, n'importe quel hobbyiste 
veul passer la vitesse supe- 
rieure Seulement les conslruc- 
teurs ne peuvent pas fournir 
de nouvelles becanes tous les 
six mots. C'est vrai quoi. 




vrait avoir le moindre cout de 
fabrication. 

Deuz.o : NE PAS SUIVRE ! 
C'est ! attitude de Hewlett Pa- 
ckard el d'Apple. Apres avoir 
route des biscottos et montre a 
qui voulait les regarder qu'ils 
etaient capables d'innover de 
faire mieux, HP et Apple sont 
obliges de constater que la 
guerre totale avec IBM no 
paie pas. Pourtant, sur le pa- 
pier, ce sont eux qui ont rai- 
son. Nous autres. pauvres utili- 
sateurs des chaumieres. nous 
voulons profiler des rJornieros 
Innovations technologiques 
Qui voudrait achetor un elec- 
trophone a aiguille quand. pour 
cenl sous de plus, on peut 
avoir une platine laser ? Seule- 
ment voila ! Les non-compati- 



merde.ca coute sacrement cher 
de (aire des prototypes, des 
etudes de marche, et on n'est 
meme pas sur quo ca vo so 
vendre. Un example SONY 
sort son MSX, el dans le 
meme temps Amstrad balance 
son CPC664 avec lecteur de 
disquettes integre pour un pnx 
qui rase les paquerettos 
Alors 9 Que faire ? Mon idee. 
c'est qu'il ne taut pas atten- 
dre : achelez n'import<? quot 
tout de suite sans savoir. ce 
qui vous permettra d'acholer 
tres bien plus tard en sachanl. 
La grand lecon a relonir. c'est 
qu'un ordinateur. c'est lait pour 
se JETER 1 Deux ou trois ans 
de service et HOP. poubelle ! 
Ouand fas compns ca. t'as 
tout compris ! 



Ill LES GARS! 
ENCORE UN PLAN INFORMATIQUE POUR fOUS! 



Et c'est du juteux ! 5 millions et 
demi de dollars sur trots ans 
vont etre investis pour acheter 
des micros ordtnateurs person- 
nels aux ecoles du Queens- 
land en Australie. Avec le plan 
Kangourou, c'est dans la 
poche \ 





BIDOUILLE 

GRENOUILLE 



Silence... 

Jo ne sais pas si vous avez re- 
marque, mais je suis plutdt Hem- 
marc), on ce moment Alors 
qu'avant fessayais de raconter 
des histoires. mamlenant je me 
conlente de taconter ce qui se 
passe a I'HHHHebdo. C est plus 
facile : |e n'ai qu'a decrire ce qui 
est autour de moi. Ca rear- 
range. 

Aujourd'hui. il n'y a personne. 
on est samedi. Je suis venu 
pour rattraper un peu mon re- 
tard. Jaurais du rendre ce texte_ 
la semaine demiere. Vaut mieux_ 
que je me depeche, sinon je 
vais me faire engueuler par la 
maquette. 

Allons-y, causons btdouiiies. 
Frederic Mommeja menvoie la 
solution de "Inteneur" sur MSX. 
Rien de plus simple, vous allez 
voir : 

Ouvrir tiroir du haut 
Prendre bague 

Prendre message dans bague 
Prendre leuille 
Prendre crayon 
Ecrire code sur feuille 
Ecnre Nalacha sur feuille 
Mettre feuille dans bague 
Tourner droite 
Ouvrir lenetre 
Mettre bague au pigeon 
Ouvrir cage 

listing spectru 
uitiutfiixiiutstntmtiiustsusmiKmi 

t RIVEK RESCUE. flCTIVISlOH:POKE 33425,2 » 

i VIES ETE8NELLES POKE 33432.9 > 

t CHUCKIE ECG,RCF:POKE *23S8,3 POKE 4279*. t < 
I POKE 42731, 24:PtWE 427t»,33: VIE3 ETERHCLLEU 

I PI-BALLED. ftUTOriflTA:POKE «SUl,» OU HEN * 

I POKE 46437,9 (POUR LES VIES ETERHELLES) X 

t FftLL CUY.ELITETOKE 442*4,9 CVIES ET, ) t 

1 KQKQTQHI UILF,ELITE;POKE 43742,9 <VIES> « 
* BOHTY HOLE, CREHLIH: POKE 38M4.I (VIES ET, > t 
S POKE 3«39l. 29ltP0KE 33974.233 (SURPRISE l> > 
JQK3ERrW*.HUDS0t<:PQKE 33248,9 (VIES ET. > « 

S POKE 32831, X^POKE 3294S.X CX-VIES) i 

t TERROR DAKTIL,rtEL10URNE:P0KE 37629,9 (VIES)I 
I DERTHCHHSE,HICRaRECA:POKE 26463.8 (VIE3) » 
t KOWIC KBKGfl,rlICR0nECR;POKE 36212,9 (VIES) I 
I mjTtjnftHtP..IUCRO-GENLPOKE 64389,4 » 

I (VIES) POKE 64399,69 * 

u>xsss»sx»ttititi*t«>mtmtimsuuim 

0UF...JE CONTINUE ? ALLEY, SfllRPflRTI 1 

tsmHtt!iittttf>ii»sssss>sti*x*i*"* nm " 

■ PYJfl(WRMfi.niCRO-CEN:POK£ 49639,9 (VIES) « 
I TRMHMM 2, HEM CENERRTIOH^POKE 3MM,l« I 
I CflVEL0H,OCERN:P0KE 24813, 146:P0KE 24998,184* 
I PSSST,ULTINRTE:POKE 24984,9 (VIES ETERH. ) * 
t POCO.OCEBH^POKE 44239, 9:PQKE 44269,33 » 



On obtient alors le code 
-EFtAINA JULIEN" qui permet de 
lire I'explication de I'enigme. 
Merci mon p'tit ! 

Jaime bien etre a I'HHHHebdo 
quand il n'y a personne. D'habi- 
tude. c'est la ruche, ca lourmille. 
tout le monde parte, s'interpelie, 
tire des listings, mais la, c'est le 
silence total. Mmmhh, c'est bon. 
Pascal Monnier, I'un de mes in- 
terlocuteurs de la premiere 
heure. vous indique comment 
avoir X vies dans Ultima Zone 
pour Oric Atmos. 
Tapez ce programme : 
FOR I - # 7800 TO # 781D : 
READ AS : POKE I. VAL (*# " 



» A$): NEXT ; DATA 40. 98. 
48. 8A. 48. 20. OE. 78 
I DATA 68. AA. 68. A8. 68. 40. 
AD, 00. 15, C9. 55. FO. 08, A9. 
40. 8D. 4A. 02. 4C. B2, F8. 60 
Faites RUN, puis DOKE # 24B. 
# 7800 et POKE * 24A. 4 4C 
Chargez Ultima Zone, faites 
POKE # 28CB. X et CALL a 
600. 

Voiia. C'est pas beau, ca ? 
Dites done, les mecs, un peu de 
serieux. Je viens encore d'ouvrir 
une lettre dun type qui me de- 
mande de lui envoyer des bi- 
douilles sur Atari 800 XL Faut 
pas deconner I Si j'en avals, je 
les publierais ! N'oubliez pas 
que c'est VOS solutions que je 
passe. Je ne fais pas de stocks, 
je ne garde pas par-devers moi 
les bons plans. 

Allez, un dernier true, envoye 
par Super-DD qui devient du 
meme coup un habitue, puisque 
c'esl la deuxieme lois que je le 
cite. Je vous passe son courrier 
presque en integral (j'ai coupe la 
partie ou il dit que I'HHHHebdo 
est le meilleur journal du monde 
et que Bidouille Grenouille est la 
meilleure rubrique de la galaxie, 
par modestie). 

Ne vous plaignez pas si cette 
semaine. j'ai tait un peu court. 
La redaction m'a aimablement 
prie de lui ceder un quart de 
page pour pouvoir causer plus 
de I'Atari 520 ST. lis viennent 
d'en avoir un. ils sont tout le 
temps autour, ils veulent en cau- 
ser, bon. Mais dans le prochain 
numero. vous en aurez une 
page entiere ! Non mais ! 



I JETPflC,ULTIRRTE:POKE 23918.8 (VIES) * 

■ flTIC RTRCULTIRRTE^POKE 36318,192 (VIES) » 
I POKE 36319,3 « 
t LUNAR JETRRN,ULTinflTE:POK£ 36963,8 (VIES) * 
t POKE 36964, 224=P0XE 36963, 3;PQKE 37999,281 t 
> PERNET DE TROUVER PLUS VITE LES IflSES * 

■ POKE 43992, x-1 (x-NB VIES) « 
t NOON ALERT, 0CERN:POKE 39736, 3: POKE 37933,291 
t RQUAPLRKE,QUICKSILVft:POKE 23448,8 t 
% POKE 23449,193 (VIES ETERNELLES) * 
« ALIEN 8, ULT I HATE: POKE 31736,8 (VIES ETERH. )« 
* POKE 42392, 253:P0KE 42393,233 (8T0P TEHPS) * 
t 1RUCE LEE.U8 COLO^POKE 31793,8 (VIES Jl) « 
t POKE 31893,8 (VIES J2) > 
T.L.L.,V0RTEX:P0KE 33986,9 (VIES) > 

tniitixtmmttmttimmiumtmtmtxt 

C'EST FIMI 7 NON 1 

POUR INTSODUIRE CES POKES DRNS UN PROCRAnnE 
OE LA MAROUE ELITE, TAPE2 CE PROCRANHE: 
18 PAPER 4: INK 4-CLS 
28 CLEAR 24188 
39 LOAD " CODE 
49 RANDOMIZE USR 63188 
39 LOAD " CODE 
68 POKE <AORESSE),(VALEUR) 
79 RRHDOK.IZE USR 41288 



REMETTEZ-M'EN DEULIGNE 

Les bonnes cuvees ressembtent aux bons crus Umberto Barbudos NEBULOSA pfouve gra ce * 

Lorsque I'on decouvre le filon il ne reste qu'une cette petrle ruse lorigine reefle du Bas* de votre 

seule solution : lepuiser. La majorite des auteurs micro prefere. 

publies deviennent des habitues de la rubrique : 

normal personne ne leur dispute le moms du Listing Atmo* 

monde la joie el I honneur de figurer dans les CO- cnot-icncTfiiCd'WQTFP-1 PWiNTrH 

lonnes de I'HHHHebdo. Certes vous n'arretez pas 1 F0RIME43ET0«E436STEP-1 -PRIKTCH 

de nemmarder. lezarder, glander et autres sports R»( <PEEK( I )0Rtt49>RN0»7F >; NE/TI 

du meme acabit. mais n'oubliez pas de taper une 

ou deuligne de temps en temps, pour me faire plai- 

sir. 

Jerome MICULLl vous offre un RESET qui bazarde 
le Basic en conservant le langage machine. Pour 

Herve INISAN procure une nouvelle lonction a son lutiliser, faites RUN puis RESTORE. 

micro. Pour recuperer, dans A, la valeur ASCII 

d'un caractere en X.Y a I'ecran tapez : (SHIFT ar- 

robas)GETCHAR.X.Y.(arrobas)A. l DRTR169, 254, 141 ,32, 208, 169.246, 1 

. r . . , 41,33,298,169,14,141,134,2,32,148, 

227 

1 a»="010980211680c3dlbc0E8ec3U80 2 F0RI«688T0697 :RERDR- POKEI ,R : NEXT 
47455443484 ld2008Q00e000f e03c0c078 :pOKE792, 168 P0KE793. 2 ' END^ RUN4- 
bbr5dd6604dd6c02cd75bbcd60bbdd460 1 STOP/RESTORE , SURPR I SE ! 
dd4e0002elc375bb" 

2 FOR t=l TO LENCai) STEP 2 > POKE 8. 

7FFF+t-^2,VflL< "ft."4-MID« C a«, t, 2 > ) : NE ^^ qagnan t d e | a semaine. mais pour deux logi- 
XT = MEMORY 8.7FFF : CRLL 8.8000 dels. Olwier HEURT1ER vous joue du pipeau/ur 

le clavier. Pour les notes, debrouiilez-vous. tes 
basses sont sur CONTROL et les aigus sur SHIFT 
Vous venez de perdre ou de casser vos lunettes ? gauche. 
Pas de probleme. Philippe DALGER vous r6pare Listinq A pp i e 
ca en quelques secondes. 



mg Te; 



1 a* = "OOQ00001001000H010001010II0011110 
OOlOOllOlOlOt 1U0011011110U11" j: B*""0 
12345i7B9ABCDEF" :: INPUT "UN CARACTERE 
:•■:!* :: I=ASCCI«):: CALL CLEAR :: CALL 
CHARPAT(I,C*> :: FOR J-l TO 16 

2 D*=D«.5EG*<A». (POS (B*. SEG» (C*. J . 1) , 1>- 
1)»4+1,4):: NEXT J a FOR J=l TO 64 :: W 
=VAL(3EG*(D*,J. 1)):: X=INT ( < J-l ) /B) : i CA 
LL HCHAR(X*9.J-B»X*9.-(W-=0)»32-(UK>0)»I) 
:: NEXT J 



Frederic MOMMEJA me mache tout le boulot": 
mode d'emploi figure dans le deuligne ! 



Listing MSX 



1 "Touch* SELECT-> copt* «» I '•er*n *n m 
ode SCREEN O wr iwprl»antp. St inprlnsn 
t* non MSX, fair* «u prcjl.blc P0KEkHF4t 
7, it. CTRL-STOP arret* 1 ' i mprni 1 on . Ent 
i«r«n«nt r»log*abl». March* witl bi#n s 
ou* BASIC qu* durant un programm* *n mod 
• tfXtt, CSFOf 

2 FORI-OTO73:P0KZltHF2OO*I , VAL ( -i,H-*MID»( 
■ F3E3D3C33E07CD4 1 01 E640FE00Z0331 1BF032 10 
0O0AFF30E99ED69ED61E3E30DED78CDA300381CF 
I3CFE2BF3ZB06E72BI2231BE3F1AFF33E0DCDA30 
03E0ACDA30O1BEBF1C1D1E1F1C9- ,2*1 



FOR X = 1 TO 39: READ A: POKE 
767 + X,A: NEXT X: DATA 173, 
1 6 , 1 92 , 20 1 , 1 28 , 48 , 24? , 41 , 1 27 
,170,189,0,128,240,241 ,133,0 
, 1 40 , 5 , 1 3o , 240 , 234 , 1 66 , , 1 73 
, 48 , 1 92 , 202 , 234 , 234 , 234 , 234 , 
234,234,208,247,76,19,3: FOR 
X = 1 TO 122: READ A: POKE 3 
2747 + X,A: NEXT X: CALL 768 
: DATA 0,0,0,0 

DATA 203,215,181,170,151,127 
,135,120.113,100, ,,106, ,191, 
223, ,143, ,,,161,, ,,,,,,,,,,, 

I I II t I M I t I II I M I I I H I I M I I" 

2, , ,47,52,43,41 ,34,30,32,28, 
,,,,,59,4(5, 55, ,34, ,,,38,,,,, 
,,,127, ,,100, 104, 89, 84, 74, 62 
,(54,59,55,49, , ,52,120,94,113 
,,70,, ,,79,,, 



. . Bien le bonjour Chez vous et courez chez votre 
EXT:i-kHFDC2:POKEi*2,»,HF2:poKEn-i,o:POKE Spicier habiluel pour decouvn'r la page entiere de 
I.HC3 ■ i c i flem deulignes du numero d'AoOt. 



DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 

de nous envoyer vos pro- qu' sont publies dans le journal. 
grammes accompagnes du ART.4 : Ce sont les lecteurs qui. 
bon de participation alnsl que par leur yotr. dttenwnent ._ les 
de toutes les explications ne- 
cessalres a ['utilisation de ce 



Un concours de plus I 
Rlen de bien original dans 
cette formule, pourtant nous 
essayons de faire quelque 
chose de different : nous or- 
ganlsons un concours perma- 
nent tous les mois et tous les 
trlmestres I Et avec des prix 
dignes des programmes que 
vous allez nous envoyer t 
De plus, ce serortt les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes 
sur la grille recapitulative 
mensuetle. 

Pas de jury, pas de decision 
arbitrage, HEBOOGICIEL n'ln- 
tervenant que dans le choix 
des programmes qui devront 
etre ORIGINAUX et FRAN- 
CAIS. SI voire programme 
n'est pas tout a fall au point, 
un de nos specialistes vous 
dim comment I'amefiorer pour 
nous le proposer a nouveau. 
Pour partlclper, il voua suffit 



programme. 
Bonne chance I 
Reglement: 

ART.1 : HEBDOG1CIEL orga- 
nise de facon mensuelle et Iri- 
mestrieHe un concours dote de 
prix recompensant le meilleur 
programme du mois et du Irl- 
mestre, 

ART.2 : Ce concours est ouverl 
a tout auteur de logiciel quel 
que soit le materiel sur lequel il 
est realise. L'envoi d'un logiciel 
en cassette ou disquette accom- 
pagne d'un bon de participation 
decoupe dans HE8DOGICIEL 
conslitue I'acte de candidature. 
ART.3 : La redaction HEBDOG1- 
C1EL se reserve le droit de se- 
lectionner sur la base de la qua- 
lite et de I'originalite les logiciels 



BON DE PARTICIPATION 



meilleurs logiciels mensuels et 
trimestriels. 

ART.5 : Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART.6 : Le prix alloue pour le 
concours trimestriel sera remis 
au plus lard un mois apres la 
cl6ture du concours trimestriel. 
ART.7 : Le present rfeglement a 
ele depose chez Mailre Jauna- 
tre, 1 rue des Halles 75001 
PARIS. 

ARTS : HEBOOGICIEL se re- 
serve le droit d'interrompre a 
tout moment le present 
concours en avisant les lecteurs 
un mois avant. 

ART.9 : La participation au 
concours entrame I'acceptation 
par les concurrents du present 
reglement. 

~"\ HEBOOGICIEL :160, rue Le- 
gendre 75017 PARIS. 



Nom 

Prenom 

Age Profession 

Adresse 

N" telephone 

Nom du programme 

Nom du materiel utilise 

declare elre lauteur de ce programme qui n'esl m une initiation ni une 
copie dun programme exislant Ce piogramme reste ma propnete et 
j'auiortse HEBDOG1CIEL a le publier La remuneration pour le*; pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signalure obligatoire 

(signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetique (cassette ou 
dequeue) accompagne dun descrip tij d6taille dy ma t 6 rig) utitfsd, 

tl une nolicrj (1 Utilisation du proqrrimme I.'.-. ',u[i[J'>rl', des program- 
mes publies sont conse rves, n'oubliez done pas d'en faire une copie. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus fori pourcentago de vote 
par rapport a la totallte des 
programmes recus pour un 
meme ordl notour. 
Alnsi, pas de lavorltlsme pour 
les ordinoteurs plus pulssants 
ou tres diffuses. 
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PEPE LOUIS REVIENT! 

P^pe Louis Yarggllll arrive chtonk dans un 
recuefl kraaaaaaak de ses aventures bzoingggg 
les plus folles koukaiili I 

Pour 59 francs, vous aurez droit a un livre qui 
repond aux ca racteristiques suivantes : 




II est beau. 

It est Interessant. 

II n'a pas de fautes 

d'orthographe. 

Les pages sont 

numerotees. 

II y a la (in de I'histoire. 

Steve Jobard, Lord 

Sansclerc et Jack 

Tramolo sont dedans. 

II est pas cher. 

II a une couverture. 

L'informatique y est 



tournee en derision. 
La couverture est belle 
Elle est de Sold. 
L'interieur est beau. 
II est de I'imprimeur. 
II n'a aucune chance 
de recevoir le 
Goncourt, quoique. 
Et puis, a quoi ca 
servlrait que Jean- 
Louis Le Breton se 
decarcasse ? 




SON DE COMMANDE 

1 Vous en voulez un exomplalrc rien que pour vous ? Envoyez le fric : 

! 59 ballcs et c'est nous qui payons le facteur. 

i NOM: 

| PRENOM: 

ADRESSE: 



! REGLEMENT: CCPC3 CHEQUE D 



10 



NE MANQUEZ PAS LA 
VRAIE REVOLUTION 

VENEZ VOIR ET COMMANDER 
VOTRE 520 ST 

CHEZ MICRO-VIDEO, LE REVENDEUR 
EXCLUSIVEMENT SPECIALISE SUR ATARI. 

DEPUIS 5 ANS 

MICRO-VIDEO : 8, rue de Valenciennes 

75010 PARIS. 201-24-30, 201-83-66 

ouvert tous les jours de 13 h a 19 h sauf Dimanche et Lundi. 




Gl 

le temple d AMSTRAD 

Inities d'HEBDOGICIEL, venez. en pelerinage. 
visiter le plus fabuleux monument consacre a 
AMSTRAD en France. 



1 0, boulevard de Strasbourg 
75010 Paris S 206.50.50 



Heures de cutte : 9 h 45 a 13 heures ■ 14 a 19 heures 
tous lesjours saufdtmanche 




m 


■m 


im 


I 151.17.97 


il 


IM Im. ( . 


rssii 


PMi 


m 


*<-» 


^ 


J«S .!«.« : 


105, 


«W. W*.*. 


rsei i 


?-r-. 


m Mtoo Ltm i 


I71MU4.I* 


I'. 


** dt lo (hcr.tt, 490O0 [ r oo 



KOl/5 AM\0;\CE 

LA FOIRE AUX SOFTS 

Dans le cadre de son operation 

• Micro Special Vacances- 

du ler juillet au 15 septembrc 1985. 

La Foire aux Softs, c'cst dcs prix spcciaux 

(jusqu'a 45 % de remise), 
sur pres de 200 litres, pour les ordinateurs : 
ZX 81 - SPECTRUM - ORIC I ou ATMOS 

COMMODORE 64 - MSX 
Venez dwouvrir le plaisir de I'lnformatique Familiole 




• THOMSON-M05-T07.70 

• POINT CONSEIL TIFY 

• MSX - YAMAHA - SANYO 

• LIBRAIRIE 



iiuil 



£e commodore 
_ coucomsiOH- 

O CHS 

CEJ ! CLECTRONCS 



Sinclair - 

rums 



29. rue Patllot de MontAben 

10000 TROYES 

Tel |25l 73.28 49 



BLANC BERNARD 

MFORMATIQUE BURERVTIQUE LYON 

AMSTRAD - SINCLAIR - ORIC 

SHARP - THOMSON - SANYO 

LEANORD - LOCYSTEM 



9, rue Salomon Reinach. 69007 Lyon 
Tel. : (7) 872.25.48 (pres facultes) 

I ASSISTANCE TECHNIQUE - LOCICIE1. - FORMATION 



ORIC ATM0S+PERTTEL+AUM+3CASSETTES DE JEUX 



PERIPHERIQUE & ACCESSOIRES 

Monrteur coulours OR14 2750 

Cable peritel avec alimentation 150 

Mortileur monochrome vert 950 

Cable pour moniteur monochrome 80 

Modulateur pour tele net et blanc 260 

Magnetocassette ZETA 350 

Cassettes vierges (les 10) 75 

imprimante 4 couleurs MCP40 1290 

tmprimante 4 coukiurs MCP80 2850 

Cable pour imprtmante ... 150 

Interface joystick programmable 350 

JoysOck QUSCKSHOT 1 , . 95 



LOGIC1ELS ORIC 1 LOGICIELS ORIC 1 & ATMOS 




PROMO LOGICIELS ORtC 1 

6 best sellers des jenx 

d'arcade pour ORIC 1 

pour 200 F ! 



pRIC 



LE TUBE DE L'ETE 



DapeMW chn vvtni rewndew m par correspond mici 

EUREKA INFORMATIQUE, 39, rue Victor Masse 75009 PARIS 

Pour commander, utiliser le bon adecouper de la page precWente. 



DUPLICATION DE VOS PROGRAMMES 
INFORMATIONS SUR CASSETTE 



Depechez-vous 

avant la nouvelle taxe sur 

les cassettes vierges. 



CASSETTES VIERGES POUR MICRO 

Prix TT.C. par boite de 25, Irais de port Indus. 



C10 


200.001 


C40 


250.00 F 


C15 


212.50F 


C60 


275.00 F 


C20 


225.00 F 


C90 


300.00 F 



Commande par botte de 25 exemplaires. 

Le bon de commande est a retourner accom- 

pagne du reglement a : 

eaveOei LS TEMQIGKAGE 
51. rue deViliedAvray-92310SEVRES-Tel (1)534.4378 



•tptcmk 

USD 



mmm. 



. Bo».(j) de C 



Revendeurs. nous consulter. 



BOX OFFICE 




suite de la page Cinoche 


1) ROSE POURPHE OU CAIRE 


18.20 


2) APRES LA REPETITION 


1820 


3| BRAZIL 


17/20 


4) PERIL EN LA DEMEURE 


17(20 


5) LA VIE DE FAMILLE 


1620 


6) ESCALIERC 


16.20 


7) LA MAISON ET LE MONDE 


IG20 


8) AU-DELA DES MURS 


16 20 


9) SANG POUR SANG 


16.20 


10) RENDEZVOUS 


15/20 


11) WITNESS 


15/20 


12) SERIE NOIRE NUIT BLANCHE 


1520 


13) BIRDY 


IS20 


14) PIANOFORTE 


15/20 


15) AMERICAN COLLEGE 


15/20 


16 CRAZY DAY 


1520 


17) CONTES CLANDEST1NS 


1520 


18) LA BALADE INOUBLIABLE 


1520 


19) ADIEU BONAPARTE 


1520 


20) BLANCHE ET MARIE 


1520 


21) NUIT PORTE JARRETELLES 


1520 


22) LE DERNIER DRAGON 


1520 


23) SUBWAY 


1520 


24) REPO MAN 


1520 


25) CHOOSE ME 


1520 


26) RETOUR MORTS-VIVANTS 


15 20 


27) SAC DE NOEUOS 


1520 


28) LES POINGS FERMES 


15 20 


29) LES SAISONS OU COEUR 


15.20 


30) ELECTRIC DREAMS 


1520 


31) FRENCH LOVER 


14,20 


32) FASTER PUSSYCAT 


14,20 


33) LA DECHIRURE 


14 20 


34) LE FIL DU RASOIR 


1420 


35 2010 


14.20 


36) POULET AU VINAIGRE 


1420 



la page pedagogique 



la page pedagoZZ. 



Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Vous etes, grace a IHHHHebdo. 
devenus des quas>Cfacks de 
I'assembleur. Mais ne partez 
pas ' Les bonnes surprises et 
tes bons plans wont se mufhpfter 
dans les prochains cours. vous 
transportanl jusquau nirvana 
des programmeurs. Comme tou- 
tours te cours theonque bran- 
chera les fans du tordu akxs 
que les NdouAeurs se branche- 
ront directement sue leur cours 
rien qua eux ! 



Vous avez dejft eu droit aux dis- 
cours suivants. dans votre page 
cherte par-dessus tool : 

ZX 81 — > 55 56 61 66 71 76 

8186 91 

OR IC-> 57 62 67 72 77 82 8792 

APPLE — > 58 63 68 73 78 83 

68 

THOMSON — ■> 59 64 69 74 

COMMODORE — > 60 65 70 

75 85 90 



L'etude de la division se derou- 
tera sekxi un schema tort pro- 
che de ce*ui de ta muitipfccahon 
Nous aurons d abord ft defirwr le 
pnncipe de cette operation logi- 
que. puis ft definir I algohthme 
qui nous oonduwa ft ta solution 
decet epineux probleme. 

Retoumons convne ft I "habitude 
sur ces cbers bancs de notre si 
beie ecote phmaire et appre- 
nons ft nouveau la division. 
Notre maitre nous exptoquait 
ceta sr pabemment et simple- 
ment qu J nous etait vraimenl 
impossible de ne pas se souve- 
nir de la methode appSquee. 

Nous dispos»ns de deux don- 
nees (qui conserveront te meme 
nom dans nos explications de 
ralgorithme) : le dividende et le 
drvtseur. Lorsque nous prati- 
quions roperation. nous atri- 
vkxts ft un resuitat comprenanl 
lui ausst deux donnees : le re- 
suitat nomme quotient et le 
reste Si le reste est nul. notre 
division est luste. Si le reste est 
mfeneur au drvtseur. notre ope- 
ration peut etre consideree 
comme terminee. malgre rim- 
preasion du resuttat du tail de la 
perle des chrffres apres la vir- 
gule. Si le reste est supeneur au 
drvtseur. nous pouvons conti- 
nuer I'operabon lusqu'a amver ft 
fun des deux cas cites prece- 



Reprenons un exemple pour re- 
trouver ce ratsonnement que 
nous pratiquons de maniere si 
instinctive que nous ne nous 
rappeions meme plus des ditfe- 
rentes Stapes qui le composent. 
Supposons que nous voulions 
drvtser 142 par 8 La premiere 
etape constsie ft trouver. dans le 
chiftre de gauche du drvidende. 
combien de tots H y a nun Dans 
ce cas. l est mfeneur ft 8 done 
nous ne pourrons effectuer la 
moindre operation ft part consi- 
derer les deux chrffres les plus ft 
gauche du dividende au lieu 
(fun seul. Nous aurons alors ft 
nous demander combien de fois 
8 figure dans 14. Nous arnve- 
rons au resuitat stupefiant dune 
fors. Nous soustrairons 8 de 
quatorze et nous obbendrons un 
reste parte! egal ft 6. 6 est plus 
pettt que 8. nous devrons done 
abaisser le chrffre survant du di- 
videnoe pour contmuer notre * 
vision. Nous aurons akxs 62 OV 
vise par 8. ce qui nous donnera 
7 et un reste egal ft 6. 

Si nous ne voufcxis pas obtenir 
autre chose qu'un resuitat en- 
tier, nous arreterons ft cet en- 
droii les caiculs tout en sachant 
pertinemment que le resuttat ob- 
tenu est inexact puisque le reste 
est non nul (ou different de zero. 
ft vous de choisir). Nous nous 
contenterons, dans I'akjonthme 
que nous altons construtre. de 
cette approximation. II est bien 
entendu que nous pournons de- 
velopper une methode travaiilant 
sur les reels, dormant une preci- 
sion inegalabte pour les resul- 
tats. mais la simpliote de la pre- 
miere solution ne nous conduira 
pas trop loin dans I'ftlucubrabon 
theonque. A vous. si vous en 
eprouvez I'envie ou le besoin. 
de travailier sur un modeJe phis 
performant de division. 



D'apres la description de la divi- 
sion que nous avons evoquee 
plus haul, nous allons pouvoir 
deduire un algonthme lent mais 
simple, ft condition d'anatyser 
correctement la syntaxe des 
phrases employees. Nous avons 
dit que nous recherchions. par 
etapes successives. combien de 
fois le diviseur figurait dans le 
dividende. Nous pournons for- 
muler le meme concept avec 
une toumure nettement plus ap- 
plicable ft un ordinateur : 

' nous soustrayons du dividende 
le diviseur 

" nous testons la valeur du bit N 
du registre d'etat. Si N= nous 
mcrementons le quotient dune 
unite et nous retoumons ft la 
premiere etape. sinon nous 
avons terrrune notre operation 

Regardons un exemple sim- 
pliste (pour 6viter de remplir la 
page reoperations debiles) pour 
verifier lexactitude de cette 
theorie. Essayons d'appliquer 
cette methode ft la division de 
10par2: 



10-2 = 8etQ = 1 
8-2=6 et = 2 
6-2 = 4 et = 3 
4-2 = 2 etQ = 4 
2-2 = etO = 5 
- 2 = -2 et N= 1 



Nous aboubssons bien ft un 
quotient egal ft 5, ce qui paratt 
togique en partant de 10 2. Une 
autre verification s'impose pour 
etre certain de la validite de 
notre raisonnement. En effet. ici 
nous avons teste notre methode 
de calcul sur une operation dont 
le resuitat est exact. Nous allons 
maintenant reprendre notre ope- 
ration mars avec un diviseur et 
un dividende ne donnant pas un 
quotient entier Par exemple 14 

ata 



3 = 1 1 et = 1 
-3 = 8etO=2 
-3 = 5etQ = 3 
-3 = 2etO = 4 
- 3 = - 1 et N = 1 



Nous avons ici un quotient en- 
tier correct et un reste egal ft 2 
(-1+ 3). Nous aitons pouvoir 
pondre un organtgramme et un 
akjorrlhme en beton ft partir de 
notre methode de calcul : elfe 
marche. bien qu'irnprecisemenl. 
Mais n'oubhons pas aupara- 
vant de determiner la struc- 
ture de donnees necessaire ft ta 
bonne re^iisatron de notre preset '■ 

Notje divtseur et notre dividende 
vont figurer chacun sur un nom- 
bre d'octets egal ft deux (deci- 
sion umlaterale de ma part, nen 
ne vous empechera d'etendre la 
methode de calcul ft des nom- 
bres beaucoup plus grands). 
Notre quotient ne pourra etre 
contenu que dans un nombre 
d'octets au plus egal ft celut 
dune des deux donnees de de- 
part, done deux octets Le reste. 
pour sa part, sera stocke dans 
ta zone ou se trouvait lo drvi- 
dende et devra subir une opera- 
tion d'afustement pour eire 
exact. 



VOiCi UN g^Tj put 

Sfl6NEPw/\BCHlfMff(T 




Admirons maintenant le resuitat 
de nos efforts- 




Organigramme de la division 
entiere sur seize bits 

O : quotient 

DID : dividende 
DIS : diviseur 
N : bit N du registre d'etat 
De cet organigramme. et grace 
ft I'habitude de programmation 
que vous commencez certaine- 
ment ft acquerir, vous deduirez 
facilement un algonthme proche 
de celui qui suit. Souvenez-vous 
du fait que la numerotation des 
lignes figure ft litre indicatif et ne 
correspond sans doute pas ft 
cede que vous imposera votre 
programme d'assembteur. 

100 mettre ft zero tes deux 
octets du quotient 

110 soustraire du dividende le 
divtseur et stocker le resuttat de 
roperation dans les deux octets 
reserves au dividende 

120 si le bit N du registre d'etat 
est positionne ft 1 alors alter en 
150 

130 incrementer d'une unite la 

vateui du quotient 

140alleren 110 









Deux problemes peuvent jaillir 
de cet algonthme. I'un tenant 
d'une operation fogique (Pincre- 
mentation) lautre etant lie au 
pnncipe de ta perte du reste. 
Nous allons etudier brievement 
les moyens de palier ft ces in- 
convenients. 

Lots de lincrementatJon du quo- 
tient, nous devons penser ft un 
detail non depourvu d impor- 
tance : ce quotient est stocke 
sur deux octets et les instruc- 
tions dincrementation de nos 
pauvres micro-orocesseurs huil 
bits ne concement qu'un seul 
octet Nous nous devons de re- 
soudre ce dilemne dans les plus 
brefs delais. si nous ne desirons 
pas voir notre division seizo bits 
fonctionner de maniere chaoti- 
que. 



L'ASSEMBLEUR PRATIQUE 
Langage machine... Sur APPLE 



Here we are again, nous votlft 
de nouveau reunis pour Wilier le 
graphique de I'Apple. Un pod 
d'erreur s'etail glisse dans le 
source de mon dernier cours 
(Hebdo n" 88). mais fort heureu- 
semenl ca ne porta it pas ft 
consequence, puisque !e code 
objet etait. lui. bon. En effet. 
dans le source du programme 
de flip, je switchais deux fois la 
premiere page graphique (bit S 
C054) au lieu de lalterner avec 
la page numero 2 (bit $ C055). 
Les plus malins d'entre vous au- 
ront rectjfie d'eux-m^me cette 
coquille. 



UESWgz attentive. 

MENT CET O&iET 
ptHDMT ? HEVPK, 
W, CflWZ-L£ OS tA 
PWrl ET PlTES CE 




Cette semaine. je vous balance 
te doigt dans un drole rfengre- 
nage : la structure graphique de 
I'ecran Apple. AJlons-y done bille 
en tete. L'ecran haute resolution 
est composft de 192 lignes de 
280 points. Au total, e'est plus 
de 53000 points qui sont geres 
dans Tune ou lautre des pages 
graphiques. On pourrait penser 
qua chaque point de l'ecran est 
altouee une case memoire Si 
e'etait le cas. il faudrait done 
53000 octets soil plus de SOKo 
pour une seule page. Bonjour 
les degats. Comment cela se 
passe-t-il done. protesseur 
Tutut ? Simplement : un octet 
etant compose de 8 bits, ft cha- 
cun de ces bits on tera corres- 
pondre un point sur l'ecran. Ah 
bon I Chouette, j'ai tout 
comphs : si le bit est ft 1 , le 
point est allume et si le bit est ft 
0. le point est eteint. C'est 
jusle ! El avec un seul octet, je 
peux ailumer ou etemdre 8 
points sur I'ecran ! Ces! FAUX ' 
Eh oui . . le grand bordel 
commence. Avec un octet, on 
ne peut gerer que 7 points sur 
I'ecran. Le huilieme bit n'appa- 
rait pas. et il sen ft determiner la 
couleur comme on le verra un 
peu plus loin. 

Done, pour me resumer et vous 
permettre de reprendre votre 
souffle, void comment la bete 
se presente : chaque ligne esl 
composee de 280 points, soil 40 
octets puisqu'un octet gere 7 
points (40* 7- 280 pour !es 
Saint-Thomas du fond de la 
classe) 

Fort de ce savoir tout neuf, les 
plus vifs d'espnt d'entre vous en 
auront deduit que 7680 octets 
sont necessaires pour gerer la 
page ontiere. Hs ont parfaite- 
ment raison puisque 40 octets ' 
192 lignes nous donnent le chif- 
fre precite. 8 Kilos ! Cost le 
poids (en octets) d'une page 
graphique ! Pour que tout soil 
bien clair entre nous, nous 
considererons done ft prftsent 
qu'un ecran est compose de 40 
cotonnos de 192 octets. 
Maintenant. il sag it de voir 
comment tout ca s organise en 
memoire Et puisque vous vous 
■mpanentez. allumez vos beca- 
nes et tapez les commandos 
suiv antes 
HGR (vous nettoyer l'ecran) 



Call-151 (vous entrez dans le 
moniteur) 

2000 : 7F 7F 7F 7F 7F 7F 7F 
7F 7F 7F (tapez 7F quarante 
fois de suite, puis RETURN). 
Emerveiilement plein de magie : 
une ligne blanche apparart ! 
C'est tout con. comme <ja. mais 
quand on l'a fait soi-meme de 
ses pebtes mains, et qu'en plus 
c'est du langage machine, une 
bouffee d orgueil vous secoue la 
tripailte. 

Ceci reclame quelques explica- 
bons. Pourquoi avoir choisi la 
valeur * S 7F ? Facile ft piger 
quand on regarde cette meme 
valeur exphmee en binaire : 
01111111. Vous constatez de 
vous-meme que dans 7F, 7 brts 
de I'octet sont positionnes ft 1. 
Par consequent, tous les points 
d'ecran correspondant ft ces bits 
vont s'allumer. Elementaire mon 
cher Waxon (bit. bit !). 
La bonne togique voudrait done 
que les 80 premiers octets de la 
page graphique representent 
exactement les deux premieres 
lignes de l'ecran. Pour le ven- 
der, tapez : 

2024: 7F 7F 7F (etc... quarante 
fois de suite et RETURN) 
Horreur, putrefaction et cassou- 
let en boile !! Ce n'est pas la se- 
conde ligne qui vient de s"allu- 
mer. mais une autre quelque 
part sur l'ecran. Gosh, what did 
happen ? Help us \ Mother tu- 
cker, j'en perds mon latin. 
Akxs Ift, je vais etre ft la lots 
bref. flou et net en meme temps. 
Pour des raisons deconomie 
(les circuits video coutaient un 
max de bie). lorsque les concep- 
teurs ont conceptue I'Apple. ils 
ont etft obliges d' adopter cette 
structure qui fait que les adres- 
ses des lignes ne se suivent pas 
dans la mftmoire. C'est particu- 
lierement chianl. mais c'est 
comme ca Faut faire avec, on 
ne peut pas y couper. Encore 
heureux. les quarante octets se 
suivent ft linterieur des lignes. 
J'entends Aldebert Sixte Bra- 
gencourt poser la question sui- 
vanle, du fond de son cabinet 
d'informatique oil il s'est en- 
ferm6 en compagnte de son 
Apple ll prefere : 
"Comment faire pour s'y retrou- 
ver, Pepe Louis V 
Ah ! Si on avait continue ft prati- 
quer le BASIC au lieu de se 
casser le tronc pour epater les 
collegues. on en serait pas Ift. 
C'est vrai quoi ! En BASIC, c'est 
vachement facile de fatre des 
HPLOT sans s'occuper de ce 
qui se passe. L'ordinateur fait 
tout. All hght. II y a done des 
sous-roulines dans le moniteur 
qui caiculent automaliquement 
les adresses. Yes man. Ou 
e'est-ti caisson ' J'y viens. 
Pour altumer un point sur l'ecran 
sans se casser la bmette : on 
peut se servir de la sous-routine 
bapnsee HPLOT (S F457) 
Avant de lutiliser. il faut placer 
la coordonnee Y du point dans 
laccumulateur, la partie basse 
de la coordonnee X dans le re- 
gistre X et la partio haute dans 
le registre Y. En assembieur. ca 
donnerait la chose suivanto : 

ORGS 300 
BIT S COSO 
BIT S C057 
JSR $ F3E2 
LDX - S 03 
JSR S FCEC 
LOA # $ 20 
LDX # S 08 
LDY * $ 01 
JSR S F457 
RTS 



Quelques commentaires s'lmpo- 
sent : une fois passe en mode 
graphique (BIT $ C050) puis en 
haute resolution (BIT $ C057). 
on precede ft un nettoyage do 
I'ecran (JSR S F3E2). on choisit 
la couleur du point (LDX * S 03 
JSR $ FCEC). Cola fait, j'appli- 



que le phnape Die plus haul 
pour aBumer le point 262 (106 
en hexadecimal) se trouvant ft la 
ligne 32 (20 en hexadeomal). 
En reatite. ce programme est 
irantdressant pursqu'ri reuWse 
des routines dejft ut'ltsees par le 
BASIC. Or. nous avons deodG 
de faire mteux. sinon c'est pas 
la peine de se creuser la t$te ft 
faire de I'assembleur. Le pre- 
mier objectrl est d'amver ft aug- 
menter la Vitesse des routines 
du BASIC. Pour altumer un seul 
point, eiies assurent. Mais des 
qu'on veut trailer beaucoup de 
donnees. c'est la gatere. EBes 
sont lentes. parce queues caicu- 
lent ladresse de I'octet ft ailu- 
mer CHAQUE fois qu'une ope- 
ration a lieu. Pour accelerer ce 
processus, il faut done creer une 
table de toutes ces adresses et 
la consutter ptutdt que de repe- 
ter des caiculs. De quot ? Was ? 
Quelle table ?... La table 
d'adresse de debut de chaque 
ligne. En effet. avec 192 adres- 
ses, on pourra situer n'importe 
quel point sur l'ecran. Si. par 
exemple. je veux ailumer le pre- 
mier pomt de la 3eme colonne ft 
la ligne 0. il me suffit de connai- 
tre ladresse de debut de cette 
ligne. En roccurence (putsqu'il 
s'agrt de la premiere hone. 
ladresse est : S 2000). La Voi- 
sieme colonne se trouve situee 
2 octets plus loin, soil ft 
ladresse $ 2002. Pour ailumer 
te premier point de cette co- 
lonne. il faudra que je donne 
une valeur hexadecimale parti- 
culiere ft l'octel se trouvant dans 
cette case memoire. Pour cet 
exemple precis, la valeur en bi- 
naire sera 00000001 (puisque je 
n'ailume que le premier point), 
Soil S 01 en hexadecimal. Au 
lieu de faire des caiculs 
complexes pour savoir que le 
premier point de la troisteme co- 
lonne se trouvera dans le troi- 
sieme octet de la ligne concer- 
nee. il me suffit de connaltre 
ladresse de cette ligne et de 
I incrementer. 

En resume : pour toute opera- 
tion rapide concemani te graphi- 
que haute resolution, il est indis- 
pensable de creer une table 
d'adresse des 192 lignes de 
l'ecran. La prochaine fois. je 
vous expliquerai comment creer 
cette table et je laisserai tomber 
la theone pour un max de prati- 
que. En attendant, revisez ce 
que je viens de dire el essayez 
de vous visser les grands pnnci- 
pes du graphique dans le crane 
avant de vous engager dans lo 
cours suivant. 

Pepe Louis 
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ERRATUM APPLE 
Dans lartlcle assembieur du 
N* 88; 3ftme colonne, dans 
le listing. It faut lire: 

BOUCLE BIT S C054 
LDA • t DO 

JSR $ FCA8 

BfTJCOSS 

Par contra, le programme 

cod* no contlont pas d'orrour. 
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MINE HANTEE 



Malgre< la presence de semptternels fantdmes. par- 
viendrez-vous a remplir un wagonnet de pepiles. pour 
^paterlagalener. Eric LECHAT 

suite duN 92 
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ATTENTION, ATTENTION 

Pour tt mot* d'»oOt vow* 
rv*x df on t un rwi* o qu»- 
drupta. r***rvu-M) dta motn 
t*n*n( ch*a votr* ef»*fcul*4*. 
P*rutton k> 2 Aout. 



foUT 




2340 SOLW 1.230.38. 14. .6 SOUND 4. 

0.13.0 sr*nr 4.iio.'«*.i4..4 

! tro"! - -.-! I0CRTE 
**.23 PRINT "d" 
2260 FOP r<-I"< TO 34 LOCATE A*l 

24 PfN - POINT ■ M" PfN 1 w5-.-=JV.*2 
2270 IF tNTEY<9>-8 OR J0Y<8>-16 TH 
EH 233* 

2298 IF INKEYrg>«e OP _«TY<0>-1 THE 
N IF TEST"y.t|6>~16.< -V-.«16>>-1 
THEN inrnTE vV;.>.v. PEN 3 PRINT "l" 
PEN 1 J1*«JV.*1' SOUND 4.100.58.12.3 
t SOUND 1.3e0.5e.l2.3.1'TPWA-« T 

R0ur-<-e goto me 

2290 IF HONSTRE-0 THEN COSue 1248 
2308 IF NONSTPEl-e THEM GOSUB 1328 
2318 NEXT fit LOCRTE A. 24 PRINT - 

- I>1 GOTO 2268 
2328 GOTO 1958 
2338 IF R/t-A THEH 2290 
2548 P-<-0 LOCATE 40-3 PRINT - ■ 
2338 0--c-ev.*€8-TEr*>--( 
2368 Tv-UEMHIN<0> TEMPS— 1 EVERY 3 
8.8 GOSUB 2370 

2378 LOCRTE 112'PRINT - • >I_0 

f-RTF 11 2 PRINT Q>. 
2388 REM 

2398 sn%:-Sft - ';*l IF SA'i-ST'-c THEN 293 
8 ELSE LOCATE 28.2 PPINT Sftt 
2400 GOTO 2290 
2410 SPtTROU PIOCHE 
2428 FOP 80U-8 TO 38 
2438 L-- < IHKEY< 1 >-8 >♦« INKEYC 8 «0 >- 
« J0Y'0>-8^*' JOY<0>-4> H— < INVEY<2> 
-8>«*IMKEY<0>-0>-< J0Y<8>-2>-»< JOY'O 

2448 IF LO0 OP H< -0 THEM 2436 ELS 
E NEXT GOTO 19*0 

2430 IF X*;»L-1 OR X^.^40 OP W.»H- 
4 OP YS-M-25 THEH I960 
2468 IF R*«0 PHD TESTt<<W.*L>XI6>- 
6.'-<Y*»H>I16>»2>-l THEN LOCATE X* 
*L.Y*-:*H PRINT *c'P^-l LOCATE 40.3 
PEN 2 PRINT CT4P»<-23«> PEN 1 ■ nv.wj>. 
*1«0 LOCATE 11.2 PRINT 0*<. ■ ■ CO 
TO I960 
2476 IF R*-l AND TESKCXW >tl6>- 

€.-:-/r^*H''»i*;>*2>-i then sound 2.5 

0.20.13 

2488 IF PIOCHE' >1 THEN 1968 

2490 PIOCHE-8 PIOC*-0 LOCATE 40.1 P 

BINT - - IF T£ST'('SO£*L >*16 «-9.''-' 
Y>.'HitK«i?/>l THEN 1968 
2^08 FOR TR-0 TO 2 SOUND 2.286.28. 
15,,2- 15+TRT3 SOUND 2.8 NEXT FOR T 



EHpn=n 


n -^(w 


HEX 


IOCAT! 


■.•1 


,■ . 


H PPINT 












2318 IF 


TE^.T' 




• .?»L 1 1 


I6>-6 




V',*> 21H 


••16 




1 THEN 


I960 




2320 IF 


R*-I 


rHEN 


PIOC-1 


r.nrn 


9£ L> 



21-JO LOCATE W'2tL 'Y - :- ?tH ■ PPIM 
T *c- P-'.= I LOCRTE ■>» i PEH 2 frint 

CHR*!238> PEN 1 GOTH |<*$8 
^40 I 

2350 PX*'.«POV ta • pv\-vprw< H i i OCR 
TF ~r- ?A PEN 3 PRINT "u" PEN 1'PIO 
-1 LOCRTE RX'-"..PY*.C RETURN 
2360 i 

2370 P»POS< «d > ■ RY-VPOV 40 > TEMPV.a 
TEHP"-:*1 LOCATE 29. 2 -PEN t 'PRINT TE 

MPV.;- - 

2380 LOCATE RX.RY RETURN 

2390 f 

2688 SPtASSOMER LE MOHSTRE* 

2618 FOP BOU-8 TO 60 

2620 L— ' IMKEYC 1 )-8»«< IMXEY<8)-0>- 

< JOY<8)-8>KXrY(0>4>'H—< IMKEY(2> 

-0 >*< I NKEY< J-0 >-< JOYf )-2 )*< JOYC 8 

'-l > 

2630 IF LOO OR MOO THEN 2640 ELS 

E NEXT GOTO i960 

2640 IF XV.*L-U5{ RMD r-C»H-V5: THEN S 

YHBOL Hl.iB,17E.I.FF,«,De,I.EF,!.C3,!. 

FF.4R3AFTER 3088.2 G09UB 2690'SOU 

MP 2.230. 10, .3'SOUND 2, ISO. 18. ,3-H 

0NSTRE-1< LOCATE lf<.Vff>£H 2 'PRINT 

■o-PEN 1 GOTO 2678 

2650 IF X^*L-UR AMD Y5:*H-Vl!t THEM 

SYMBOL 112.l.8.*,7E.».FF,|.D8.(iFF.iC3 
,iFF.iA5AFTER 3808,2 GOSUB 2728'S 
QiJND 2. 238. 18,, 3 'SOUND 2.130. 18. ,3 

MONSTPEl-1 LOCATE Ult. Vt%>PEN 2'P 
RIMT "o-PEN 1'GOTO 2670 
2668 GOTO 2600 
2678 FOR T-8 TO 208 'NEXT 
2688 PELLE-0. LOCRTE 1, 3 < PRINT " ■■ 
RFTEP 200.3 GOSUB 2730'GOTO I960 
2698 SYMBOL 111 . «.7E . *FF , M» . IFF . iC 
3 . IDS , &FF , «,R5 • MONSTRE-8 
2700 IF MONSTREI-1 THEN AFTER 1080 
.2 GOSUB 2720 
2710 RETURN 

2728 SYMBOL I !2,t7E, IFF, IDS, *FF, S.C 
3, %0e. IFF . WW MOMSTRE1 -0 
2730 IF nOHSTRE-I THEM AFTER 1088, 
2 GOSUB 2690 
2748 RETURN 

2738 RX*-POS< #0 ) i PYV.-VPOS< tO ) LOCA 
TE PEX^.PEYit'PEN 2'PPINT "v"PEN 1 

PE-1 LOCRTE PX^.RY^'PETURN 
2760 tMORTt 



2770 IMK 3. 18. 26 PEN 3 
2788 INK 3.18,26 PEN 3 LOCATE r*,j 
>. PPINT "4- 

2798 SOUND 2.300.20.15.1. 1,21 FOP 
N-e TO V50UMD 2.80.20. . ,2 NFXT >f 
OP TX-8 TO 500'NEXT INK 3.23 
2800 VI^«VISt-t LOCRTE 35.2 PRINT - 
- LOCRTE 35.2 PEN 1 PPINT VT'. 
IF VI"<-0 THEN 2048 
2018 LOCATE IX. 24 PRINT * "j LO 

CRTE *•/..*>.< PRINT " "J LOCATE lft.V% 

PRINT " *t LOCRTE Ul^.VlX PRINT - 

"j GOSUB 2698 GOSUB 2728 
2020 v*'.»XX"^ M^»YY^i U*"UUVy--.«WVU 

n.-Lijik -vr-i-wiii 

2*38 GOTO 1840 

2850 REM tPEPDU? 

2860 DI 2X^»R£nAIW8) TEMP^-OCLS 

PPIHT PRINT PPINTPRIMT "VOUS VEME 

Z OE MOURIR DANS CETTE MINE" 

2870 PRINT "IMFERNRLE . 

2888 IF (R<R£X THEN 2988 ELSE PR1N 

T PPIMT'PPINT 

2898 PRINT "LE NOiJVERU RECORD EST 

PE'-iQ--:;" POINTS* 'PEJt-Cft 

29O0 PPINT PPINT PRINT 

2918 FOP T=8 TO 40T»-IMKEY*NEXT 

2928 INPUT "V0ULE2 VOIJS REJOUEZ" ; J 

• 

2930 IF J»->"0" OP J»-"o' THEN 478 

2940 END 

2938 PEMfBPANCHEMENT DE TRBLERiJX 

2968 LOCATE 20.2^PRINT Sfft-FOR T-0 

TO 100'NEXT>PE-8 PELLE-8'PIO-O'PI 
0CHE=8 PIOC-6 

2970 SYMBOL I I2>t7E,8.FF,««>'-fT.tC_ 
3. ',06. *FF. »,R3 ■ HONSIRt 1 "8 
2990 SYMBOL tll.«.7E*fcFF,We.tFF,*C 
3 , tDB , *-FF . 4A5 M0NSTRE=8 
2990 IF Tfl*<«I THEH ST"C-16' TAft*2 GO 
TO 3030 

3888 IF 1(V.=2 THEN 3T%-2£>Tn%-3<G0 
TO 303O 

3818 IF TR*«3 THEN ST-.'-i-- TAX-4 ' 
TO ?R?0 
3020 TR*<*5 
3830 PEM*MtJSIOijET 
3048 FOR >1 TO 18 FOP I«58«) T<~i 50 

STEP -30 
3050 SOUND 2. 1.1.!?- NEXT I.J 
3868 FOP 1-50 TO 478 STEP 18 SOUND 

l.I,2,13NEXT 
3878 PEM »RSCEMCEURt 
3888 DI ' I r-C-24 • TEHP^-0 ZX^PEMRIN'n 



cccc-ziciiirr^-r^- ■-"-r~ 

31 10 LOCRTE 2,24 PRINT 5P» 

3120 WCKH-S LOCATE IPC. 24 PRINT -f 

• ■iCMPV I5>iCHR*-t -, -i - oem 1 
3130 FOP I*-3 TO 23 LOCHTI 

INT * * tCXT LOCATE * ^ P**IN 

T ***».»•»" 

3140 UHILE -■. 

3138 IF IMTEY.'R-.** OR _»j-,''^.^ THE 



3478 PPINT 'CCCOt Xt 



sdceoedec : 

- 



i WW 



i-1 



3160 FOR T-0 TO 50 • NEXT 

3170 LOCATE X*'.. 24 PPINT *f9-.CHP*' 

13>;CHP»«:3>;-r * PEN 1 

3188 UEHD 

3190 SC-JND 2. 200. 0.0.5. 5 FOP YT:=24 

TO 4 STEP -I 
3288 LOCRTE KX.VX-t PRINT -*t i MP 
tM3JiCHW?>."t " PEN 1 
3218 LOCATE 2. V< PRINT -r«<--.- 
LOCATE 2.Y"<*1 PEN 2 PRINT ■ ■iCHB 
V. 13B>.CHP*: 133>." - PEN 1 
3220 FOP T=0 TO 208 NEXT 
3230 NEXT FOR XW TO 37 LOCATE W. 
.3 PRINT " f9*.CHPW 15>;CHR»<3>[-a 
"'PEN 1 

3240 FOR T-8 TO 100 NEXT NEXT 
3250 >R=38 ■ B»=- W GOTO 3270 
?268 XV.039 b*-" f GOTO 3270 
3278 LOCATE X*-i.3 PPINT 99 FOP T«8 
TO 188 NEXT 

3200 IF X^-38 THEN 3268 
>290 LOCATE 3*.3'PPINT • 
??0O PEMtePANCHEMENT DES TABLEAUX 
3310 IF TRS:«2 THEN 3370 
3320 IF T«5i-3 THEN 3670 
3330 IF TA^=4 THEN 3<»60 
3340 IF TRV.-5 THEM END 
3350 LOCATE 11.2 PRINT ■ • LO 

CATE II. 2PPINT 0^;CHPV7> GOTO 19 
50 

3368 PEH 

3370 PEM OEUXIEME TRBLEWJ 
3388 X5C*7'XX*t"7 Y*<-5 YYV.-5 ' U*-:-2» V 
%*9>UuT«"28 W4-9'UUlv.-30 Wl^.-13 U 
r<-38>V15s-13 PEXV.-19 PFr'.-19 
3390 MODE 1 ORIGIN f»,4O0 INK 1 .ftp 
EN 1 

3488 PRINT PRINT PRINT 
3410 PRINT ■ccccccccc<:cce':'--ii-<:c<?<- 

3420 PRINT -c r 

C"- 
3438 PPINT "cdCCCd^ccrcrncrfTrtcrc*: 

3440 PPINT -cdccrlc^TcccT'l e 

cccc CTWCCTi*? " . 

PRINT "cdcccccccir-rccdc^rrrrc 



lAOa PRINT ' 

^4«i> print -ec c dc c -gj-ccccctfcee ccc e ^ 

| <rca*cqMw: cc c ec ed (. ■ 

3500 PRINT "c *r<-c C rcct- 

1 *--. 

?518 print "okrrccdcxcnKcd 

3528 PRIMT -(rfVcC'-'J^TCTCr " 

3538 print -edccecdr-M 



3548 PPIHT "c 

3550 PPINT "ccce«4co-ccec*-cntd« 

ococd d *-■ 

3568 PRINT -c«xo-* dcce dec 

ccced eec e dceTwcecc * ■ 

3578 PRINT "cd rdcccecccdccccd 

d drcccccr^ - 
3300 PPIHT "rdccw-dr-^ci-d d dec 
.-ccTT^Trcdc^ccccc-" • 
3590 PRINT -cdccecdcccecdeecdeeeec 
cccccccccdcccccccc* s 
3608 PRINT "cdccerdceeccdcccdeeee^ 
cccccccccdcccccccc " ; 
3610 PPINT "cd 

dr". 
3620 PPINT -cc**»«-ee«*e«e**»<-f** 
e***'***^********^:^ • 1 CHRPf Hi LOCAT 
E 1,1 PRINT CHROOl'v 
3638 LOCATE 1,1 'PRINT "RECORD 
SCORE TEMPS SACS VIES" 

3040 INK 1.18>G0S»*3 2730 
3658 El GOTO 1020 
3660 REM TROISIEME TABLEAU 
3670 X*f->16-XX"t*>16'Y%-6 YYX-6 ■ LA-8 ■ 
V7.-18'UUX-8'WJc-18'UUlV-3l W1X-21 
Ult-31 V1V.-21 
3680 MOPE 1 'ORIGIN 8.400. IMK 1,0 P 
EN I 

3698 PRINT PRINT PRIMT 
3708 PRINT "ccccc-cccccccccccccccc 
ccrccccccccccccccc" ; 
3718 PRINT "c c C c cccccccn 

CC CCCT*»CC»CCCC" 1 

3720 PRINT -edede dcccdcd ccccc 
cdcdccccca>«»cccecc ■ < 
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470 DATA FFFFFFFFFFFFFFFF.0103070F1F3F7F 

FF.SOCOEOF0F8FCFEFF.3F7F7F7FFFFFFFFF,00O 

OOOO70FOF 1F3F . OOOOOOEOf OFOF8FC 

480 DATA FBFCFEFEFFFFFFFF.OOOOOOOOB080CO 

CO. 8OB0C0C 1 E3F7FFFF . I F3FFFFFFFFFFFFF . OOO 

1O3O30707OP1F 

490 DATA 0FIF1FIF3F3F7FFF.FCFCFEFEFEFEFF 

FF.8OBlClC3E3F7FFFF.OO8Ci8Oe08OCOC0EO.EOE 

OFOF8FFFFFFFF 

30O DATA CK)OOOOOOEOFFFFFF,OOOOOOOOOOeOCO 

E0.3F7F7F7FFFFFFFFF.000001070F1F1F3F,OF3 

FFFFFFFFFFFFF. OOOOOOOOOOOOOOOO 

310 DATA OO3C424O3CO2423C.O03C42404O4O42 

3C.003C42424242427E.0O3C42427C444242.0O3 

C40407840403C. OOOOOOOOFFOOOOOO 

320 RESTORE 310 :s FOR A-88 TO 93 :: REA 

D CAR* tl CALL CMARCA. CAR»> j t NEXT A 

530 RESTORE 470 1 : FOR A-64 TO 83 : I REA 

D CAR* t: CALL CHAR < A. CAR*) : 1 NEXT A 

340 RESTORE I&O :: FOR A-96 TO 136 STEP 

4 1: READ CAR* :i CALL CHAR (A. CAR*) : I NE 

XT A 

550 RESTORE S90 : 

: : READ CAR* 1 : 
T A 

360 CALL CHARIAO.-OOOOOOOOOOOOOOOIOIOIOI 
O 1 OD 1 F3FFTOOOOOOOOOOOOOOOOBOB080BOe8AEF9 
FF"i 
370 FOR A-I TO 3 i : CALL MCHAR ( A. 1 , 83. 32 

j : NEXT A ! : FOR A-4 TO 24 it CALL MCMA 
rift. 1.33. 12):: NEXT A 

3BO RESTORE 390 1 : FOR A-63 TO 84 : : REA 
D L.C :: CALL MCHAR (L . C. A) : 1 NEXT A 
390 OATA 2.5.2.7.2.9.1.9,1.10.2.10.2.11. 

Z, 12.2,12. 1 . 16. I. IB, 2. 20, 2. 23 
600 DATA 3,23,3,24.3,23,3.30,2,30,2,31 
610 CALL HCMAR(3. 1.64. 10)1 t CALL HCHAR(2 
.6.64)j: CALL HCHARtl. 17.64):[ CALL HCHA 

.64.7) 
620 CALL HCHAR(3, 13,64. lOUf CALL HCHAR t 

CALL HCHOR(2. 32.64)i: CALL 
HCHAR<2,21.64,2) 
630 FOR B-5 TO 8 :i CALL COLOR (G. 2. I I ) : : 

NEXT G 
640 CALL COLOR! 1. 1 1 . 1 1 , 2, 7, I 1 , 3. 7, 1 1 . 4 , 7 
,8,2,11,9.2.11)1! FOR 1-3 TO 7 II CAL 
L C0L0RU.7,6)( : NEXT 1 
630 DISPLAY AT (23. 13) l *XYZC\* 
660 CALL SF-RITE(*1.96.7.83, 13) 
670 CALL SF-RITE(*2, 104.14.63.240) 
6BO CALL SPRITE (»3. 116. 13,7R.4B,*4. 1 12. 1 
3, 64, 72, »3, I 12,13. 112.40) 

690 CALL SPRITE<»6, 1 16, 1 3, 132.BO, •/. 1 1 ',, 
13.88. 128.48. 112, 13.48. 176) 
70D CALL SPRITE(410, 112,13,128, 168. II 1. 1 
16. 13. 132,224) 

710 H,.P, TT.HH.Gfi, I I. JJ.LL.MM.NN-0 :i SC 
01,5C02-30O ii Bl. 62-30 
720 GOSUB 1070 II GOSUB 1640 
730 REM •« Pratjrammm principal •• 
740 FOR 1-1 TO 7 t : CALL JOYST { 1 . X , V < 1 ) ) 
:i CALL M0TI0N(RI.-VCI>*3.O>! : CALL IEV 

t,4fH*.B»rt if y.< i > -is then on i eoau*-e 

20.940 

730 CALL POSITION(»l,VG.VB, §2.BG.CG)l ! I 



$vp<?</BUB Ft'CELL£ 
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F VG>196 OR VG<23 THEN 790 

760 IF 8GM96 OR BG< 23 THEN BOO 

770 IF B1=0 AND B2-0 THEN 1370 

780 NEXT I : j GOTO 740 

790 CALL L0CATE(41,23, 13) : : SOTO 7BO 

BOO CALL LOCATE (42. 23. 240) : : GOTO 7BO 

BIO REM *• Tir du cow-boy da oauchw •• 

820 CALL M0TI0N<»1,0,0) :: CALL POSITIONi 

•l,YP0,XPO):i W-INT(YPO/B)*l ti IF W>22 

OR W<4 OR Bl-0 THEN RETURN 

B30 IF SCOK-0 THEN 1370 

B40 IF M"7 Oft M»8 THEN TT=TT*t :: IF TT> 

=5 THEN CALL DELSPRI TE 1 4B) : ; CALL SPRITE 

(•19.60,13.48.176):: GOSUB 890 ELSE BOSU 

B 1230 :: RETURN 

830 IF W-12 OR W-13 THEN HH-MH*1 u IF H 

H>-3 THEN CALL DELSPRI TE (47) 1 1 CALL SPRI 

TE(420. 60, 13,88. 128):i GOSUB B90 ELSE GO 

SUB 12B0 : ; RETURN 

860 IF w-17 OR M-1B THEN GG-GG- 1 : t IF G 

G>-3 THEN CALL DELSPRI TE (41 0) l : CALL SPR 

ITE(421. 60, 13,128.168): : GOSUB B90 ELSE 

GOSUB 1310 :i RETURN 

B70 IF W-20 OR W-21 THEN 11-11*1 II IF I 

1 >-3 THEN CALL DELSPRI TE (4 1 1 ): : CALL SPR 

ITE<*22.60,13, 132.224>!i GOSUB 890 ELSE 

GOSUB 1340 II RETURN 

BBO REM ••• Tlr d« g*uch« ••• 

89 <i CALL PATTERNOl. 100) ti Bl-Bl-1 tl SC 

01-SC01-IO :: CALL SOUND ( - I 00, -6.0) 1 t CA 

LL HCHAR (H, 4, 93. 20) 

900 CALL HCHAR(W.4.32.2B) :: GOSUB 1070 t 

1 CALL PATTERN<4I ,96) 

910 L0C-(M»8)-10 j: IF LOO 190 OR L0C<2B 

THEN L0C-2B 
920 CALL COINC(#2,LOC,240. 10,C0)i t IF CO 
— I THEN GOSUB 1370 :: RETURN 
930 RETURN 

940 REM •• Tlr du con-boy d» droit* •• 
930 CALL M0TION(42,O,0): : CALL POSITION! 
•2.YF0.KF0) t ! D-INT(YF0/8)*l t: IF D>22 
OR D<4 OR B2-0 THEN RETURN 
960 IF SC02<-0 THEN 1370 

970 IF D-4 OR 0-3 THEN JJ-JJtl :: IF JJ: 
-3 THEN CALL DELSPRI TE (43) 1 1 CALL SPRITE 
(R23.60. 13,28.48) 11 GOSUB 1010 ELSE GOSU 
B llOO 1: RETURN 

9B0 IF D-9 OR D-10 THEN LL-LL*1 tl IF LL 
>-3 THEN CALL DELSPRI TE (44) at t CALL SPRI 



Eli24.60.13.64.72):i GOSUB 1010 ELSE G08 

UB 1130 It RETURN 

990 IF D-I3 OR D-16 THEN MM-MM* 1 :i IF M 

Mj-3 THEN CALL DELSPRI TE f 43) J : CALL SPRI 

TE{423.60.13. 112,40): t GOSUB 1010 ELSE O 

OSUB 11O0 11 RETURN 

1000 IF D-20 OR D-21 THEN NN-NN* 1 11 IF 

NN>-3 THEN CALL DELSPRI TE ( 46) : 1 CALL SPR 

ITEI426.60. 13. 132, BO) : : GOSUB IOIO ELSE 

1210 1 1 RETURN 

1010 REM ••• Tir da> droit* ••• 

102O CALL PATTERN<42\ I OB I : i B2-B2- 1 11 U 

C02-SC02-10 It CALL SOUND* -100. -7,0) 1 1 C 

ALL HCHAR(D,3.93.2B) 

1030 CALL HCHAR(D,3,32.28f 11 GOSUB lO/o 

:t CALL PATTERNI42, 104) 

1040 L0T-(D«B)-1'.» : : IF 1 in 190 OK nil ■; 

8 TMFN LOT-2B 

I030 CALL C0INCC41.L0T. 13. 10. CO) : I IF CO 

--t THEN GOSUB 1410 ti RETURN 



1060 RETURN 

1070 REM •• AfficHjqe «corec •• 

1080 DISPLAY AT(73.3) tSCOll t : OISPLAY AT 

<23,23)(SC02: 

1090 RETURN 

1 100 REM •• Tir «ur cactua 1 •• 

1110 CALL PATTERNI42. lOB) i t CALL HCHAR<D 

.8.93.23) 

1120 CALL SOUND(-lOO.-7.0) t 1 CALL HCHAR( 

D,B,32.23):s CALL PATTERN < 42, 104 1 

1130 CALL SPRITE<4I2.120. 13, <D-1) »8.44) 

1140 SCO2=5C02-30 u B2-B2-1 It GOSUB 10 

70 11 CALL DELSPRITE(412) : : RETURN 

1130 REM •• Tlr sur cactus ? ■• 

1I60 CALL PATTERN(42. 10B) : 1 CALL HCHARtD 

.11.93.20)11 CALL S0UND(-100.-7,0):: CAL 

L HCHAR CD. 1 1.32.20)1 I CALL PATTERN < 42. 10 

4) 

1170 CALL SPRITE 1*1 2. 120, 1 3. (D- 1 ) «8. 69) 1 

: GOTO 1140 

HBO REM •• Tlr lur cactus 3 

1190 CALL PATTERN(42. 108) : : CALL MCHARCD 

.7. 93.24):t CALL SOUND C - 100. -7 , O) : 1 CALL 

HCHAR(D.7.32.24)ii CALL PATTERN (42, 104) 
1200 CALL SPRITEC412. 120, 13. (D-l)»B,36)l 
t GOTO It 40 

1210 REM •• Tlr tur cactu* 4 •• 
1220 CALL PATTERN(42, 108):: CALL HCHARID 
.12,93,19)1! CALL S0trND(-10O,-7,0Hl CAL 
L HCHAR(D. 12,32,19)1 t CALL PATTERN (42, 10 
4) 

1230 CALL SPRITE<412. 120,13, (D-1)»B. 76) t 
: GOTO 1140 

1240 SC01-SC01-30 ■■ Bt-BI-1 it GOSUB 10 
70 ii CALL DELSPRITEI412): t RETURN 
1230 REM •• Tlr tur c*ctu» 7 •• 
1260 CALL PATTERN(4I. 100) 1 : CALL HCHAR (U 
,4.93,20)11 CALL SOUND (-IOO. -6,0) t 1 CALL 

HCHARfM, 4, 32.20)1! CALL PATTERN (41 ,96) 
1270 CALL SPRITE(412,120. 13, (W-1)»B, 1B2) 
: : GOTO 1240 

1280 REM •• Tir +ur cactus du mili.-u 44 
1290 CALL PATTERN(4I. lOO) t : CALL HCHARfW 
.4.93,14)11 CALL 50UN0(-l00,-6.0):i CALL 

HCHAR(W.4,32, (4)t I CALL PATTERN < * 1 . 9M 
130O CALL SPRITE<412. 120. 13. <W-1)»8. 133) 
: : GOTO 1240 

1310 REM •* Tlr *ur cactns 8 •• 
1320 CALL PATTERN(41. IOO) 1 t CALL MCHAR (H 
.4,93.19)1! CALL SOUND ( - 100. -6, 0) I 1 CALL 

HCHAR(M.4.32, I9)i t CALL PATTERN( 4 1 , 96) 
1330 CALL 9PRITE(4I2,120. 13. <W-1)»8.I72) 
II GOTO 1240 

1340 REM ••• Tir «ur cactus 9 ••• 
1330 CALL PATTERN(41. 100) 1 1 CALI HCHAR {H 
.4,93.26111 CALL S0UND(-100,-6,0) I t CALL 

HCHAR (14,4.32.26)1 1 CALL PATTERN ( 4 I . 96) 

I 160 CM 1 BPRITI (012, 120.13, (M-l)»0.227) 
; : GOTO 1240 

1370 REM •- Execution du to--bov da> drol 

t. M 

1380 CALL MOTION(4t,O.0.42.0.0) ti CALL P 

ATTERN(42.32)tl CALI. TEMP8II201II SCOl-S 

COI'IOO it GOSUB 1070 11 CALL PATTERN(42 

. -.(, ) 

1390 CALL SPRITC(4I3. 136.2. 190. 123,-3,0) 

II GOSUB 1300 II CALL MOTION(4l 3, -3,0) 1 t 
CALL DELSPRI TL (421 1 t GOSUB 1430 

1400 CALL P0CITI0N(*13.PO,P9lii IF P0<33 
rHEN 1 Al L DCL8PRITE(413, 414, #13) : 1 CALL 



SPRITE<»2. 104. 14,63.240):? RETURN ELSE 
1400 

1410 REM •• Execution du cow-boy d» qauc 
hi? •• 

1420 CALL MOTI0NC41. 0,0. 42,0,0)it CALL P 
ATTERN(*1,40) 11 CALL TEMPS(120)lt SC02-S 
002*100 .-: GOSUB 1070 1 t -CALL PATTERN!*!. 
.44) 

1430 CALL SPRITE(*13. 136.2,190,123,-3,0) 
:: GOSUB 1300 II CALL MOTION (4 I 3. -3. O) 1 1 

CALL DELSPRITE(4H : ■ GOSUB 14SO 
1440 CALL POSITION(*13.P0.PS>t 1 IF PO<33 

THEN CALL DELSPRI TE (4 13, 41 4 , 4 13) 1 : CALL 

SPRITE(*1.96,7.B3.13) 1 1 RETURN ELSE 144 

1430 REM •• March* funebr* •• 

1460 RESTORE 1470 

1470 DATA 2.262.2,262,1.247.2,262,2.311, 

1,294,2,294, 1,262,2.762,2,247.3,262 

1480 FOR 0-1 TO 11 ;■ READ D.F 11 CALL S 

0UND(230"D,F,3,F»2, I0.F44, 10) 11 FOR J-l 

TO 23 ii NEXT J :: NEXT D 

1490 RETURN 

1300 REM •• Vautour •• 

1310 CALL SPRITE(414. 124,2. 1,230.3.3.-12 

1320 CALL SPRITE(413. 132.2,1,230,1.2,-7) 
1330 FOR V-124 TO 132 STEP 4 ti CALL PAT 
TERN(414.V):: FOR T-l TO 20 II NEXT T II 

NEXT V 
1540 CALL POSITION<4l4.KL.MN)il IF MN< 20 

■HEN CALL DP:.r,FftiTn(4l4.*i3)ii return 
1330 CALL C0INC(44.414.20.VF)i t IF VF--1 

THEN CALL MOTION(414,0.0) 1 t CALL PATTER 
N<*14,12S)ll CALL L0CATE(»14,39,77)ELSE 
1330 

1360 RETURN 

1370 REM •• Flo d* parti* •• 
13BO CALL DELSPRITEIALDl I CALL CHARSET 
:i CALL CLEAR tl CALL SCREEN (3) 
1390 FOR G-0 TO 12 ts CALL COLORIO. 16, 3) 
! : NE X T G 

I60O DISPLAY AT(2.2)iNJ4(l)| 1 DISPLAY AT 
(2. 1FJ):NJ*(2) 
1610 DISPLAY AT(6. !2> I "SCORE" 11 DISPLAY 

AT(6.2)lBC01t I t DISPLAY AT (6. 23) t SC07I 
1620 DISPLAY AT (22. 1 ) 1 "VOULE * - VOU9 ftt-JOU 
tR-> (0/N>" t: ACCFPT AT ( 72. 28) VAL IDATE <" 
OonN ")5IiE(l)BEE^:r.[ T* 

II RTTO*"0" OR RTT»-"0" THEN 1 70© E 

1 .1 CAI I CLEAR :i END 

1640 REM •• Muslqu* du dubiil •• 

1630 RESTORE 1670 tl FOR M-l TO 33 

1660 READ N.L tt CALL SOUND ( I . 3«L.N. 6) 1 1 

NEX1 M M RETURN 
1670 DATA 323.200.323. 200, 698. 200.323. 10 
0,698, 100,880,200, 704, 200,880. 200. 69B.20 
0,880,200,93: ,200, i"4/.200 
1600 DATA 1047,100,1047,100,932,200,932, 
700.080. 400. 764, 20O. /.vm. JOO. *8«, "". /t)4. 

,200,080,200 
1690 DATA /R4.2<«J,l)(H>.:'00.7U4.20O,690.70 
0. 7B4, 200, 7H4, 200. 639. 700, 639, 200, 323, 40 



.. . 

ai m en<2i 

ITO 100 

1 ■ ■■■ SJ r n f.i '-i n 1 
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CALL 



MARIAGES 



Fteveillez, par ce jeu des similitudes, votre intuition en- 
dormie. 

Gerard CLAVREUL 

Mode demploi: Choisissez au deport le nombre de lignes (1 a 9) ou 
rmm. Rentrez ensutte le nombre de loueurs 
(4 maximum) ainsi que leur nom 6 rectangles noirs apparaissenl, 
ainsi que le numero de rangeo que vous pouvez changer par les 
fleches haul, bas Ddcouvrez ce que cache ces rectangles par les 
touches de reservation el tente2 de reussir vos manages. 






PC 1500 



ERRATUM aur PC 1500 
JEEP du n° 91 

Veuillez compiler ainsi la ligne 
suivante 

43: POKE E-»&JB7, 8.0 
3, 8.B3, 8,00, 8.BE, 
8ED, &EF, 8.14, 8.D 
D, SB7, 8.3C, 8.8B, 
S03, 8.JA, 8.3E, 8. J 
D, 8,48, 8.7J 



J: REn JEU DES no 

R1AGES 
2:REn CLAUREUL G 

ERARO - PC 1 SB 

e 

3:DATA "185C7E7F 

7ESC18" 
5: DATA "88SC4A7F 

4ASCB8" 
?:DATA "881C3E7F 

3E1C88" 
9: DATA "BE1F3F7E 

3F1FBE" 
11:0ATA "552A5S2fl 

552ASS" 
13: DATA "B888887F 



15: DATA "7F49497F 

494 97F" 
12: DATA "7F41SDSS 

SD417F" 
19:DATA "1C88497F 

49881C" 
21. -DATA "7F55S555 

S5557F" 
23: DATA "7F4 14950 

494 17F" 
25:DATA "7F417F41 

2F4I2F" 
27:0ATA "2F557FSS 

7FS57F" 
29: DATA "7F7F636B 

637F7F" 
31: DATA "88142249 

221488" 
33:DATA ■ , ?F41?F88 

7F417F" 
35: DATA "7755555D 

555577" 
37: DATA "77777708 
777777" 



39: DATA "S53E6322 

633ESS" 
41:DATA "7FS56BS5 

6B557F" 
43: DATA "492A1C7F 

1C2A49" 
45: DATA "437A8A3E 

282F61" 
47: DATA "7F6349SS 

49637F" 
49: DATA "1C147741 

77141C" 
51: DATA "6E6A7B41 

7B6A6E" 
53: DATA "77557708 

77SS77" 
55: DATA "7F417F55 
7F417F" 
10B:"A"GOSUB "JN1T 

1AL" 
11B:J=1:L=1 
12B:G0SUB "COUP DU 

JOUEUR" 
138: IF LEFT* CFC«C 
1>,7>=LEFT* <F 
C*C2>, 7>G0T0 1 
7B 
148:BEEP 1:PR1NT " 
DOnnAGE ";P*(J 
>:UAIT B 
I5B:J=J4): IF J>NJ 
LET J=1:G0T0 1 
28 
160: GOTO 128 
178:P<J>=P<J>+1 
188:BEEP 3:PRINT " 
BRAUO ";P*(J); 
PCJ) 
198:NC=NC+] 
2BB: IF NC=XFx2G0TO 
22B 



218:FU*(LC1), T<1>) 


C*<2)»22 


="":FU«<L<2>, T 


388:Dln L(2>, TC2>, 


<2>>="":GOT0 1 


FP*(NF)*22 


20 


400: REn LECTURE OE 


228: BEEP 5:UAIT 18 


S FORHES 


8: PRINT "RESUL 


410:FOR I=1T0 ND 


TATS" 


420: READ TF*<I) 


230:UA1T :PRINT "P 


430: NEXT I 


0UR";XF^2i" flA 


500: REM TRI DES FO 


RIAGES" 


RnES 


240:PRINT CPl" COU 


S10:FP=NF'2:FOR 1= 


PS JOUES" 


1T0 FP 


250:FOR I = 1T0 NJ 


520:RANDOn : X=RND 


260:PRINT P*(I);" 


ND 


-> "iPa);" PO 


530:FP*<<I*2>-1)=T 


INTCSV 


F*<X>+"001C141 


270: NEXT I 


C" 


288: END 


540:FPJC1J2)=TF*(X 


300:"lNITIAL"REr1 I 


>+"001ClClC" 


NIT1ALISATI0N 


550: IF X=NDSOTO 59 


310:UAIT :CLS : 





CURSOR 4: PRINT 


560: FOR J=XTO ND-1 


"JEU DES nARIA 


570:TF«U)=TF*CJ-M 


GES" 


) 


320: RESTORE : CLEAR 


580: NEXT J 


:CLS :UIAIT 0:N 


598:ND=ND-1 


D=27 


60B:NEXT 1 


330: INPUT "NBRE RA 


700: REn REPARTITIO 


NGEES (1 A 9> 


N DES FORnES 


» ";NR 


710:FOR L=ITO NR 


340:NF=NR*6:XF=NF 


720: FOR C=1T0 6 


350: IF NR<10R NR>9 


730:RANDOn : X=RND 


BEEP 2: GOTO 33 


NF 





740:FR*CL,C>=FP*CX 


360: CLS : CURSOR 2: 


>:FUi<L, C) = "7F 


PRINT "UN INST 


7F2F7F7F7F7F7F 


ANT..., S.U.P. 


7F7F7F" 




750: IF X=NFGOTO 79 







ATTEWTION. ATTENTION 

Pour I* molt d'aoCrt voua 
avaz droit a un num+ro qu#- 
drupla. rtwrvaz-l, daa main- 
tenant chaz voir* cnarculto. 
Parullon la 2 AoOI. 



370:Dln FR»(NR, 6>« 
22, FU*<NR, 6>*2 
2, TF*<ND>*]4,F 



760: FOR I=XT0 NF-1 
770:FP*C1>=FP.$<I-M 



780: NEXT 

790:NF=NF-1 

8B8:NEXT C 

81B:nEXT L 

900: REn PRENOn DES 

JOUEURS 
910:BEEP l: INPUT " 
NOtlBRE DE JOUE 
URS = ";NJ 
320: IF NJOOR NJ>4 
BEEP 2: GOTO 91 

930: DIH PJ(NJ),P(N 

J) 
940: FOR 1 = 1 TO NJ 
950: BEEP 1:UAIT 0: 
CLS :PRINT "JO 
UEUR No"; I J" = 
";: INPUT P*cl 
> 
968: IF P*(I)="" 

GOTO 350 
970: NEXT I 
980: RETURN 
1000: "COUP DU JOU 
EUR"REn COUP 
DE CHAQUE J 
OUEUR 
1010:CP=CP-H 
1020: CLS :BEEP 2: 
WAIT 10B: 
PRINT "A TOI 
";PJCJ> 
1030:GOSUB "AFFIC 

H U" 
1040:REn CHOIX 1 

ERE RANGEE 
1050: R=l 

1060:GOSUB "TEST 
TOUCHE" 



110B 
1580 



1510 
2000 



2030 
2040 
2858 



2080 
2090 



:REn CHOIX 2 
EnE RANGEE 
:R=2 

:GOSUB "TEST 
TOUCHE" 
RETURN 
"1ERE RANGEE 
"REn RECHERC 
HE 1ERE RANG 
EE 

GOSUB "TEST 
TOUCHE" 
"TEST TOUCHE 
"REn RECHERC 
HE DERNIERE 
TOUCHE ENFON 
CEE 

IF CINKEVi = 
CHRS 10)OR < 
INKEYS =CHRS 
1DG0T0 2050 
FOR I=17T0 2 
2: IF INKEY* 
=CHR« <I> 
BEEP 1:G0T0 
2030 
NEXT 1 
GOTO 2010 
IF INKEY* = 
CHRS (10JLET 
L=L+l:BEEP 1 
IF INKEYt = 
CHRt (ll)LET 
L=L-l:BEEP 1 
GOSUB "AFFIC 
H U" 

GOTO 2010 
T=ASC INKEY* 
:T=T-16 
IF K0GOTO 2 
010 



2130 
2140 
2150 
2168 
2178 



2180 
2500 



2510 

2528 

2530 
2540 
2550 
2560 
2570 
2580 

2598 
2600 



IF FU*(L, T>= 

""BEEP 2: 

GOTO 2010 

IF CCL=L<1> 

AND T=T(1)>) 

AND R=2BEEP 

2: GOTO 2818 

FU*<L, T)=FRt 

<L, T> 

FC»(R)=FR«(L 

, T> 

L<R)=l: T<R)= 

T 

GOSUB "AFFIC 

H U" 

FUJCL, T) = "7F 

7F7F7F7F7F7F 

7F7F7F7F" 

RETURN 

"AFFICH U" 

REn AFFICHAG 

E DES FORnES 

CUERSO) 
IF L=BLET L= 
1 

IF l=nr*ilEt 

L=NR 

CU=-16 

UAIT 0:ClS 

FOR C=1T0 6 

CU=CU*24 

GCURSOR CU 

GPRINT FUJrL 

.C> 

NEXT C 

IF R=2UIAIT 1 



2610:CURSOR 24: 

PRINT L 
2620: RETURN 



7799 BASIC 
Y ETENDU 



13, »7, 120,1 



Suite de la page 3 



370 DATft -19.7, 1,-5, 9, 13,-7, 11,2,-13, 11, 

7,-8,13,2,-17. 13,2,-7, 15,5,-15.13,3.-2, 1 

7,12,-5.19.7 

380 DATA -17.20,3,-7.21,3,-15,22,5,-9.24 

,12.-7,26,4.-19.26.3.-3,28,5,-lB.2B,3,8. 

-ia,lB3 

390 DATA 9,10.5,12,11,2,-9,10,7,-9,17,7, 

-9. 20. 7, -9, 2*. 7, 11,21. 1, 12,22.1,13,23,1, 

7,-17,111 

400 DATA 102PEZ LE MALICIEUX, REITNEP (B> 
ET JOI-.GfJEZ L' ISSUE (pqr).SANS TELESCO 

PER LES 

4JO DATA PAftOIS 111 A MOIHS.rjUE VOUS M'U 

SIEZ DE, VOTRE E/TRA-ENER6IE. (EE) EH DECL 

ENCHANT 

420 DATA LE "syzeii*". NE DE-.PASSEZ EN A 

UCUH CAS. LA LIMITE DE TEMPS, (LT) ET EVIT 

E2 LES 

430 DATA ERREURS !," BONNE CHANCE... " 

440 DATA --"ENTER"" POUR LE JEU", 

450 CALL SCREENI2):: RANDOMIZE :: RESTOR 

:: FOR 1=0 TO 3 : : FOR B-O TO 3 : : REA 
D C(I.B);; NEXT B :: NEXT 1 :: CALL MAGN 
IFY(3! 

460 CALL CLEAR :: CALL CHAR (96, " 1F3E7DFB 
07F7F7F7F7F7F7F7F7F6F5F ,, *RPT«(-0-,25tt-7 
FFFFF") 

470 CALL CHAR MOO, "FFFFFFFFFQF7F7F7F7F7F 
7F7F7FiF4F0FFFFFFFF"tRPT* i "0" , 91 ) 
480 CALL CHARM04,PPT*("0",24>*."F£FEFEOO 
lF3E7DFB07"fcRPT*r-F7", 1 1> ) 

490 CALL CHARMOS. -FFFFFFFF-lrRPT»(-0",24 
>*RPT»("F7", 13)fc"F6F4F"> 

SOO CALL CHARM12.-1F3F7FFF00FFFFFFFFF0F 
7F7F7F7F7F7FFFFFFFF0OFFFFFFFF-> 
310 CALL CHARU16.-F7F6F5FOFFFFFFFFFOF7F 
7F7F7F6F4F07FFFFFOOFFFFFFFFO " ) 
320 CALL CHARM20. -FFFFFFFFOOFFFFFFFFOOO 
COC<»0000000FFFEFDFB07"l>RPT* ( "F7" ,11)) 
530 CALL CHARM24. -FEFEFEOOFFFFFFFF-fcftPT 

-0-,li)fcftPT*C"F7-.13)(."F6F«F-) 
540 CALL CHARM2B.-1F3F7FFF0OFFFFFFFFF0F 
7F7F7F6F5F0FFFFFFFF00FFFFFFFF00OO007FFFF 
F") 

550 CALL CHARM32, "FFFFFFFFFOF7F7F7F7F7F 
7F7F7F6F4FOFFFFFFFF-LRPT* ( "0" ,9) ) 
3*0 CALL CHAR < 136, "FFFFFFFFOOFFFFFFFFOOO 
00OFEFEFE0OFFFEFDFBO7-4RPT* ( "F7" ,11)) 
370 CALL CHARM40. -FFFFFFFF*I.RPT*("0".24 
) &-F7F6F4FO" !>RPT* ( "O" , 9) ) 

3BO CALL CHAfti89,-01O3O7OFlF3E7COOFOE0C0 
80OOOO0O000103070F1F3E7CF8-) 
590 CALL CHARf92.-FFFFFFFFlF3E7CF8OOOOO0 
0OFFFFFFFFFFFFFFFFOO00OO0O0103070FFFFEFC 
FB") 



620 CALL SPR1TE(«1, 96,1, 65. 65, #2,100, l,i 

1,6S,*3, 104,1,65,01.114,108, 1,81,B1,«3, I 

2,1,81,113) 

630 CALL SPR17E(«6, 116, 1, 

,81, 129, #8,124, 1,97, 129) 

640 CALL SPRITE(#9, 128, 1 , 97, 161 , #10, 132 

1,113, 161, #11, 136, 1,97, 177, #12, 140,1.113 

,177)tj DISPLAY AT(14, 14) : "I Z Y i Z" 

630 DISPLAY AT(9.11)i"Z *Z" It DISPLAY A 

'M0,9):-Y t_Z" :: DISPLAY AT(ll,B)t"* 

"Z — 5 Z- -. DISPLAY ATM2,8):"Z Z 

•Z" :i DISPLAY AT M3, 17) t "5Z — $Z" 
i60 CALL HCHAR(15,22,9!) : : CALL HCHAR < 1 6 
.22,90)i: DISPLAY AT (24, ID: "PQRSTUVW" : 
: FOR 1 = 1 • TO 12 :s CALL COLOR I#I . 5) : : K 
EXT I !j CALL C0L0R(7,4,I,8,1S,1> 
670 RESTORE 60 :: FOR 1=1 TO 55 :: READ 
A 

680 IF A THEN IF AOINT < A> THEN CALL SOUN 
Dt75»M-(lJ»17)*2-!I=26)»3) .A, 5. I A- 1 NT (A) 
«*>1000,5>ELSE CALL SOUND (75. A, 5) ELSE CAL 
L S0UND(75.400O0,30) 

690 CALL KEY(3.K,S):: TF K-7B OR K=79 TH 
EN 740 

700 NEXT 1 :: CALL SOUND (375, 1 47, 3, 185, 5 
,294,5):: CALL SOUND (1 , 40O0O, 30) : : FOR I 
=1 TO 10 :: A=INT (RND»3> 
710 B=3*INT (RND»14) : ; IF 6=15 THEN 710 E 

LSE CALL C0LORC#A<"l»l.B.«A»4*2,B,#A*4*3, 
B,#A»4*4,B> 

7ZO FOR 6»5 TO 20 ■: CALL SOUND ( -99, 466/ 

2'A,B,- !A+1) ,B) : : CALL KEY < 3, K, S) : i IF K 

=78 OR K=79 THEN 740 ELSE NEXT B :: CALL 
COLOR17.16. 1) 

730 FOR B"l TO 2 :: CALL KEY(3.K.S)(: IF 
K=78 OR K-79 THEN 740 ELSE NEXT B : : CA 

LL C0L0R<7.4,1):: NEXT I :: GOTO 670 

740 GOSUB 12B0 :: CALL CLEAR :: CALL DEL 

SPRITE(ALL): : CALL MAGNIFY ( I ): 1 CALL CHA 

PSET :: CALL CHAR( 1 1 2, "000038121 31 03B000 

OOOBA22BA8A68OOOOOOB0AOBOAOBB") 

750 CALL CHARM2O,"OOO3O40F01O27C0O0OE70 

89 ] 3E408 1 0OOOCF90384OB 1 F3OOO09F2O40B0O 1 E 

7-) 

760 CALL CHARM 24, "0O3922448FI 1220O0OF22 

44B90207C") 

770 CALL CHARM03,-38282FE1B1720C04") 

780 CALL CHAR (136, " 0070 7 060000000 OOOOOEO 

EO60000OOOOOO00O000060E0E000000''X)0O607O7 

-) 

790 A#=-FF81B199998181FF P 

BOO CALL CHAR!140,A«.36.A-);i IF K-78 TH 

EN 930 

BIO CALL CHAR(96,"000I0303O30303030OFC04 

05O30406O20OOO804O40aoO0OC03FFBOCO4O6O3B 

IC"> 

820 CALL CHARMO< 

A8ABAA 1 A I A I 0ED30 

830 CALL CHARM03. "C4E23I 

020404020E") 

840 FOR 1=4 TD 19 STEP 3 

,2) :" ■■b"! TAB (26) I • '«b"« " 

cde":" *qh"tTAB(26) I "*()h" 

B30 FOR 1-1 TO 22 STEP 21 

1,2) :RPT«(- "i 

i.RPTt(-*gh-,< 



, 1) : : FOR B-l 
i: CALL pATTE 
: IF K«13 THE 
■■ DISPLAY A 



0C1 92121 3D03O5O3I2BA8 

0180C0703224C9 

1 DISPLAY AT( I 
cd#":TAB(26) |- 
It NEXT I 
I 1 DISPLAY ATI 
"&RPr«("cd»".9) 1 " " 
I : : A-63 



» : 1 NEX 
T I 

870 CALL SPRITE(#1.32, 1,41, 129) 1 : FOR I- 
1 TO 8 !J CALL COLORI r.4. I) ; : NEXT I :: 
CALL COLOR (#1, II) :: CALL COLOR (3, 14, 1 , 4, 
5, 1,11,13, 1, 12,7,1) 
B80 CALL COLOR(9, 11, I, 10,11 

TO 40 !: FOR 1=136 TO 139 
RN(#l,I):: CALL KEY(3.K,S): 
N 920 ELSE NEXT I :: NEXT I 
T(20,6)SIZE(19) 

890 CALL C0L0R(9, 2, 11, 10,2,11) 
900 FDR 1=1 TO 3 1: FOR B»5 TO II STEP 2 

II CALL SDUND(-9, 131 ,B> : : CALL SOUNDI-9 
,147,B):: CALL SOUND (-9. 165, B) 1 : CALL SO 
UNO (-9, 175, B) : : CALL SOUND (-40, 196, B): : 
NEXT B : : NEXT I 

910 RESTORE 440 :: READ A» :: DISPLAY AT 
<20.6>SIZE(19> :A« :i GOTO 880 
920 GOSUB 12BO :: CALL DELSPRITE (#1 ) 1 : C 
ALL CLEAR : j CALL CHARSET 

730 CALL CHAR(4B, -O03C4242O042423C000BOB 
OBO00808O8O03CO2023C40403C0O3CO2023C02O2 
3C") 



02") 

950 CALL CHAR(36,"003C42423C42423C003C42 

423C02023C") 

760 CALL CHAR (95. " 1B245AA5A53A24 1 B1BI81B 

1B181B1B1BOOOOOOFOF8181B18000000FFFFO") 

970 CALL CHAR(99. "OOOOOOOF IF IB18IB18 18 18 

1F0F0O0O0OIB18IBFBF") 

9SO CALL CMARM28, "383B3FFFFF7EOC04") 

990 E.R=0 :: RESTORE 90 :: CALL HCHARd. 

3.128,28):: CALL HCHAR(22.3. 128. 28) : J DI 

SPLAY AT( 1. 14)SIZE(3) : "pqr" 

1000 DISPLAY ATI23,12)i"xy*=0*" :: DISPL 

AY AT (24.1): "00 LTOOO EEOO SCOOO TTOOOOO 

0" :: CALL C0L0R(3. 16. 1,4,16. 1,3,8,1,6.8 

, 1,7,8, 1) 

1010 FOR 1=1 TO B :: CALL VCHAR (2, 3, 128, 

20)11 CALL VCHAR(2, 30, 128,20) 

1020 READ Y.X.A i: IF X<0 THEN 1030 ELSE 
IF Y<0 THEN CALL VCHAR ( -Y, X. 1 OS. A> : : CO 
TO 1020 ELSE CALL HCHAR ( Y, X , 1 05. A) 1 : GO 

TD 1020 

1030 CALL HCHAR(Y,-X. 140)1 : CALL SPRITE( 

•1,136, 1, (Y-1>-B*l. (-X-l)»8*l > : : A«=STR* 

M):t DISPLAY AT(24,3-LEN(A«) )SIZE(LEN(A 

•)>iA* 

1040 DISPLAY AT(24.6)SIZE(3): , '000- :: A« 
«STR*(A):: DISPLAY AT (24. 9-LEN I A* ) ) SI ZE ( 
IEN(A-)):A* :j DISPLAY AT (24. 17) BEEP SIZ 
E(3) :"0OO" 

1030 AY.NY--1 :: Y-21 .■ 1 X = 17 : : AX.NX.D 
,Z-0 :t CALL COLOR(B. 14,1,9.4.1, 10,13, 1. 
11. 13, 1,12, 1, 1. 13,7. 1.14,3, 1) 
1060 CALL C0L0R(#1, 11)11 FOR B-l TO A 1 : 
CALL JOY8T(l,K,0>f, IF ABS(X*S)-4 THEN 
NY— S/4 :: NX-K/4 

1070 CALL HCHAR(Y,X.C(NY»ABS<NY)«2*NX*AB 
S«NX).AY*ABS(AY)«2*AX*ABS(AX)))i: A«-STR 
*(B):i DISPLAY AT (24.20-LEN(A») )SI IE (LEN 
t, ):A* 



COLOR ( 1 1, 10. 1 ): : D^= 1 :: GOTO 1120 
1090 IF D" (X>11 1)»(K<1 15)THEN 1140 
1100 IF (K=105)*Z THEN CALL S0UND(300,26 
2,5.523.5,784,5):: E-E-l :i CALL COLOR I 1 
2,1,1,10,15.1):: A>~STR*(E):: DISPLAY AT 
(24, 14-LEN(At) > SI ZE (LEN ( At) ) : A* :: Z-0 : 
: GOTO 1120 

1110 IF K<>32 THEN CALL COLOR (I 3, 6. 1 ) : : 
FOR K=0 TO 30 :: CALL S0UND(-10, -3. K) : : 
NEXT Y. :: CALL DELSPRITE (#1 ): : GOTO 1180 
1120 CALL HCHAR(Y,X,93> : : AY=NY :: AX^NX 

r : CALL PATTERN («1 . (B/4-INT (B/4) J •■1*136 
):: CALL KEYM.K.Sllt IF (K=18)«E THEN I 
= 1 :: CALL C0L0RM2. 16,5. 10. 1, 1 ) 
1130 NEXT B :: FOR B=15 TO O STEP -3 :: 
FOR K=l TO 3 :: CALL SOUND ( 1 00. -K . B) : : N 
EXT K :: NEXT B :: CALL DELSPR I TE (#1 ) I : 
GOTO 11 BO 

1140 FOR K=l TO 3 :: FOR S-140 TO 240 ST 
EP 10 :: CALL SOUND (-97. S, 3, S+S/ ID. 5. S*S 
/5,5>:r NEXT S : .- NEXT K t: FOR K-fl TO 1 
4 :: CALL COLOR (K, 1 . 1 ): : NEXT K 
11SO CALL HCHAR(2,3,32.636) : : IF B.IA-5) 
THEN E"E*1 :: A»=STR»(E):i DISPLAY AT(24 
, 14-LEN(A») JBEEP SI ZE (LEN ( A«) ) 1 AS 
1160 FOR K=R TO R+B tl A4-STRS (K) : : DISP 
LAY AT{24,27~LEN(A*)):A# it NEXT V. 11 R- 
R*B :: NEXT I :: FOR 1=1 TO 3 : : RESTORE 

30 ■■ FOR K»l TO 12 ii READ A 1: CALL S 
0UND(-99,A,0.A»8.0):: IF K-6 THEN FDR B= 



1 TO ! 



NEXT 1 



NEXT B 



FOR I 1080 %* 



1; Y-Y+NY :: CALL GCHAR(Y.X. 
40 THEN CALL SOUND (200, 262, 5. 
704.5.349,5) : : CALL DELSPRITE (• 1 ) I [ CALL 



1170 NEXT V :: FOR »=t TO 100 ; 

:: NEXT I 

1IB0 CALL CLEAR :: CALL MAGNIFY(3):: CAL 

L CHAR (132. "7172F29392*', 133. "",134. , 'BE47 

4EC848 M .135. ■") 

1190 FOR 1=1 TO 28 :: CALL SPRITE(#I . 132 

. 1 + INT(RND> , (I-I)«6*-13, 170- I "6,0. I ) : 1 NE 

XT I 1: FOR 1-28 TO 1 STEP -1 ll CALL MO 

TION(#I.O.O):: NEXT I 

1200 R»R*E«100 :: M=MAX(M.RI:i DISPLAY A 
T(6,1):"SC0RE"!R: :" RECORD")M t! CALL 
COLOR (3. 14, 1,4, 14, 1,5. 1 1, 1.6. 1 1. 1,7. 1 I . 
I) II FOR 1-8 TO 14 

1210 CALL COLORM, 1, 1) i 1 NEXT I :: FOR B 
= 1 TO 10 11 DISPLAY ATMO.l) 
1220 A-INT(RND-4)«2*I :: CALL S0UNDM300 
, 110,5, 111, 3,112. 3)ii FOR 1-1 TO 28 :: C 
ALL COLOR (• I, 16,#I,A):t NEXT I 
1230 A-INT(RND"4)»2+1 tl CALL SOUND ( -1 EC 
0,146,3,147,3,148,31:: FOR I-2B TO 1 STE 
P -1 11 CALL COLOR (»I, 16,#I.A) t 1 NEXT t 
1240 DISPLAY ATM0,7>l"UNE AUTRE ?" M F 
OR A-l TO 100 It CALL KEY (3. K. S) : : IF K= 
79 THEN GOSUB 1280 11 CALL DELSPRITE (Al 1. 

)l: CALL CLEAR :: CALL r1A6NIFYM):i GOTO 
990 

1230 IF K07B THEN NEXT A 11 NEXT B 11 C 
ALL DEL5PRITE(ALL):: OOTO 430 ELSE CALL 
CLEAR :: GOSUB 1280 :: CALL CHAR ( 127. "3C 
4299AlA199423C")ll CALL DELSPRI TE (ALL) 

1260 FOR 1-0 TO 14 J: CALL COLORM. 4, t)i 
: NEXT 1 :: CALL C0L0R(3. 16. I ,4. 16, I ) 1 1 
PRINT TABM9) i CHR» ( I 27) ) " t984"t :TABM4) 
I "-DAVID PENTIER'" ll ON ERROR 1270 11 R 

1270 RUN 

1280 FOR B»5 TO 30 I r CALL SOUND (-30, 300 

.B)ll NEXT B :: RETURN _» 



FORTUNE 



Tel un parfait "self made man", exprimez votre sens du 
commerce et faites du profit en partanl de presque 
rien 

Fabrice PENOT 



2030 PRINT i INPUT "ACCEPTE-Tip 
" !ACC» 

1040 If ACC* - '0* OR ACCt - '0 
III" "HEN 20*0 

2030 PRINT f SPEE0" 100: PfilNT 
■OK.'i GOTO 2090 

20*0 ARGENT - ARGENT - PCAPi IF 
ARGENT ( THEN PRINT *TU N 
'AS PAS ASSEZ O'ARGENT.' :ARG 
ENT - ARGENT » PCAPi GOTO 20 



^ 



CONMASO 



suite duN 92 



WTO 



1*90 It RENC < > 

I via 

Ml -.PRO - :nt C AND <2 
) • 3C0> • 10 • 1S00:C0ne - 
IN" ( RND (2; • 10) • ! 

1310 PRIN"* "UN HOMME V0US B ROPO 
hi ■co- : ;<■ : HUNT -pour • 
PRO' Fr ChAGUE.*; PRl-r : INWT 
•ACCEPTE-TU? *;ACC* 

1320 ! c ACC* ■ '0* OR ACC* - '0 
U!* THEN GOTO 1840 

■.830 IF ACM < > -0* Oft ACCt < 
> *OUI* *-jEN 2090 

1940 hA - INT { WD (1) • 2>:Aft 
GENT - ARGENT - PRO • COMB 

1930 IF ARGENT < THEN PRINT 
: PRINT -TU N'AS PAS ASSEZ 
'ARGENT.' :ARGENT • ARGENT * 
PRO « COMB i GOTO 2090 

1940 CA»ACITE - CAPACITE - COMB 

1970 IF CAPACITE < THEN PRINT 
■TU AS TROP OE NARCHANDISES. 
■ !ARGENT - ARGENT • PRO • CO 
MB:CAPACITE - CAPACITE * COM 
9: GOTO 2090 

1990 IF HA - 1 THEN PRINT f PRINT 

OK.'sQR - OR * COMB: GET T*: GOTO 
2090 

1990 FOR » • 1 TO 2: PRINT Bti NEXT 

ft 

1900 SPEEO- 100: PRINT i PRINT 
: PRINT -C'EST UN ESCROC ' I L 
PRENO|TCN ARGENT. £T GARDE L 
'OR" ••[CAPACITE - CAPACITE * 
:OMB: GET T»: 60T0 2080 

l?lfl IF RENC < ) 2 THEN 2000 

:920 2S ■ INT < WO (l) • \*> * 
. iPT© - IV ( RNO (1> » 4> 
• 5 ♦ 33 

: »33 print ; print *un HOMt*E va 

OS PROPOSE DU TEXTILE ('«') 
»3UR 'P7EX' Fr "I PRINT 

: INPU* 'ACCEPTS - TU ^*)ACC 

* 

IF *CC* - p 0" OR ACC* - *0 

ti:- THEN i960 
1?30 SCO 2090 

.'*: AR8EMT - ARGENT - 0E • FTEX 
IF ABSENT ■ -wen PRINT 

: PRIN- "TU N'AS PAS ASSEZ D 

'ARGENT- :ARGENT - ARGENT • O 

E • "TSXi GG T 2080 

IC1TE - WPACI" ■ OE: IF 

wpa::~e ( ""EN PRINT : PRINT 
•TU AS Toop oe MARC*NC:SES.*:AR 

BQ*T - ARGENT • OE • P'EXtCA 

PACI'E ■ CAPACITE * OEi SOTO 

20 80 
1990 "A * :-.' ■ S0 CJ] » 2)1 IF 

MA - | ThEN POINT : PRINT ' 
C'ES'9 ON .'iOTEX - GTEX • O 
E : GOTO 2040 

;»?0 SPEED- IQOi PRINT i PRINT 
'C'EST UN ESCROC IL PREND TO 
N ARGENT ET GAR0E LE TEXT1L 
E! ' "[CAPACITE - CAPACITE • 
T 'j 2080 
RJtOSfT ( 4500 THEN PRINT 
. privt 'flijM NC S £ passe.': 
OOTC 2080 
2010 PCAP - INT < RNO ( I) • ARO 

Err / 3.3) * 300 
2320 PRINT : PRINT 'UN HOMME TE 
PROPOSE DE LA CAPACITE(30> 
POUR 'PCAP'Ff 



20?0 CAPACITE « CAPACITE • 30; PRINT 
i PRINT "C'EST SON.*! GOTO 2090 
20 9C 3ANQ.E > (NT (BANQUE • 1,0 

7) 
2090 SPEED- 233i G0SU8 3300t GOTO 

440 
2100 REM •••BANQUE 
211 HOME 

2129 IF • 14 THEN H9 - INT < 
RNO ( 2) • S) • I : IF HB* - 

PYtKHB) THEN GOTO 2120 

2130 IF - 14 THEN KB* • PY*<H 
B) 

2140 IF PAYS* < ) HB* THEN PRINT 
.-A SUCCURSALE OE "PAYS* - EST FER 

MEE.'i PRINT 'SEULE CELLE DE 
■HB**EST OUVERTE.* 
2130 IF PAYS* < > H8* THEN GET 

T*t RETURN 
2140 GOTO 2210 
2170 VTAS 20: CALL - 848: RESUME 

2180 HOME 

2190 PRINT : PRINT 'CASH— >*ARG 

ENT' Fr'j PRINT ' BANQUE -->' B 

ANOUE* Fr* 
2200 RETURN 
2210 ONERR GOTO 2170 
122: GOSUB 2180 
2230 VTAB 20: INPUT 'Cwibian v« 

ua-tu dtpor.tr?* ;0EP: IF DEP > 

ARGENT THEN PRINT 'TU N'AS 

PAS ASSE2 O'ARGEK*': GE' T«: 
VTAS 20! CALL - 848: VTAB 

2'.1 CALL - 848: GOTO 2230 
2240 IF DEP ( > INT <0£P) Oft 

DEP < THEN 2230 
2230 ABSENT - ARGENT - OEPiBANOU 

E - 9AN0UE • OEP 
2240 ONERR GOTO 2170 
227Q GOSUB 2:SC 
2230 '/TAB 21: CALL - 848 
2290 <JTAB 20: CALL - 848c INPUT 

"Comrtun MUX-tu r#t jr»r'* ;R 

ET 
2300 IF RET > 9AN0UE THEN PRIN* 

*TU N'AS PAS ASSE2 O'ARGENT 

A LA 9AN0UE'; OE" T*i VTAS 2 

2: CALL - 948: "TAB 21: CALL 
- 848: GOTO 2290 
2310 IF RET < ) INT CRETi OR 

RET < T*£N 22?0 
2320 ARGENT - ARGENT * RET:BANQU 

E - BANQUE - RET 
2330 RETURN 
234fi BOI •••ACHAT 
2330 HOME : PRINT *0R>*PftO-Fr' 1 
PRINT 1 PRINT *ARMES)"PARM* 
Fr'j PRINT i PRINT 'TEXTILE 

S)*PTEX* f>*: PRINT : PRINT 

■::>JERS>'PDlV*Fr' 
2340 VTAB 201 INPUT 'QUE VEUX-T 

U ACHETER 1 '* ;AC* 
2370 IF AC* - *0* OR AC* - 'Of** 
THEN MAX - INT <ARGENT / P 

RO): OOTO 2420 
2380 IF AC* - *A' OR AC* - 'ARM 

ES' THEN MAX - INT (ARGENT / 

PARMJt GOTO 2420 
2390 IF AC* - *T* OR AC* - *TEX 

TILES' THEN MAX - INT <AROE 

NT / PTEX): GOTO 2420 
2400 IF AC* - *0* OR AC* - 'DIV 

ERS' THEN MAX - INT (ARGENT 

/ POILI): OOTO 2420 
2410 TAB 20: CALL - 849: OOTO 
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2420 GOTO 2430 

2430 RESUME 

2440 QNERR GOTO 2430 

2430 HOME 1 VTAB 20: PRINT *COM 

3:env-ax* aumaxj'i iNpyr 

C0M9 
2440 IF C3MB ) MAX THEN OOTO 2 

430 
2*70 I? COMB : • INT (COMB) OR 

CONS ( T H£N 2430 
2480 IF AC* - -0' OR AC* • *0R* 
THEN ARGENT ■ ARGENT - COMB 
• PftOiQR - COMB • OR 
249C IF AC* • -D* OR AC* - *OIY 

ESS* THEN ARGENT ■ ARGENT - 

C0M8 • PDIViODIV = C0M8 • 00 

IU 
2500 IF AC* - *A* OR AC* - 'ARM 

ES' THEN ARGENT ■ ARGENT - C 

OMB • PARMiQA • COMB • OA 
2310 IF AC* ■ *T* OR AC* - »TEX 

TILES' THEN ARGENT - ARGENT - 

COMB • PTEX:QTEX ■ COMB • OT 

EX 
2320 CAPACITE ■ CAPACITE - COMB 
2330 RETURN 
2340 REM »«*JENTE 
2350 HOME : PRINT *0R>*PRO*Fr' ! 
PRINT : PRINT •ARMES>*PARM* 
Fr*: PRINT : PRINT 'TEXTILE 

S>*PTEX* Fr'i PRINT : PRINT 

•DIVERS^PDIVFr' 
2340 i/TAB 20: INPUT *OU£ <JEUX-T 

U yENDRE"'*tVENT* 
2370 IF WENT* - '0* OR VENT* » 

'OR* THEN MAX - OR; GOTO 244 


2580 1= VENT* - •*• OR VENT* ■ 

'ARMES* THEN MAX - OARM: GOTO 

2440 
2390 IF VErT* - T" Oft VENT* - 

■TEXTILES' ''HEN max - OTEX: GOTO 
2440 
2400 IF VENT* - '0* OR VENT* ■ 

'DIVERS' THEN MAX ■ ODIV: GOTO 

2440 
2410 VA8 20i CALL - 848: GOTO 

2340 
2420 RESJME 
2430 ONERR OOTO 3440 
2440 ONERR OOTO 2420 
2430 V^AB 20: PRINT : PRINT *C0 

•*B!9J'!*MAX* AUMA;:i*: INPUT 

COMB 
2440 IF COMB ) MAX OR COMB ( ) 
IN"* (COMBJ OR COMB ( Then 

VTAS 20: CALL - 948 1 QWQ 

2449 
2470 IF COMB ( > :MT (COMB* OR 

COMB ' THEN 2440 
2490 [P VENY* - -0' OR VENT* - 

'OR* 'HEN AftGENT - ARGENT • 

COMB • PROsQR - OR - COMB 
2490 IF VENY* • *T' or VENT* - 

■ t EX-IlES THFJ ARGENT - ARO 

D4T • COMB • PTEXiOTEX - OTE 

X - C0M9 

iroc IF VENT* - *A' OR VENT* - 
■ARMES- THEN ARGENT - ARGENT 
• COMB • PARMiOARM * OARM - 
COMB 

27:C IF VENT* - '0' OR VENT* • 
•OIVEflS* THEN ARDENT - AftOEN 
T • COMB • PDIViODIV • ODIV - 
COMB 

2720 CAPACITE - CAPACITE * C0M8 

2730 RETURN 

2740 w - I : GOTO 430 

2730 REM •••REG.ES 

2740 NORMAL 

2770 HOME 1 PRINT '— — — ■«*— 



2791 £"=£> :C0 

29CG PftlNT ; «ft:v 'U Sv"* DL- J 

EU ES T DE GAG-JER "-E PLUS': PRINT 
". AR6EN1 B ]5E:3-£ EN AOCTAHT a 
J d .'jS ': PRINT *BaS POUR RE 
VENORE AU PLVS MAUT DANS ': 6 ftlN 

Jil AUTRE CAP!*alE.': PRINT 
2910 PRINT '1AIS ATTENTION AJX 

ACCIDBfTS ET AU*': PRINT -RE 

NCONTRES...*: FOR PAUSE • 1 TO 

300: NEXT PAUSE 
2320 PRINT t PRINT t PRINT 'P.S 

.lATTENTION A GAROEft ASSE2 * 

: PRINT 'O'ARGENT POUR PRENO 

RE LE TRAIN': PRINT *FAUTE 

E QUO!...*! SPEED- 235i GET 

'•: RETURN 
2330 REM •••VOYOUX 
2940 SPEED- 98 

2830 HOME : INVERSE : PRINT : PRINT 
■ONE 9ANDE DE VOY0UX ,,, * i NORMAL 

: SPEED- 233 
2840 FOR R - I TO 20; G0SU9 300 

s FOR PAUSE - 1 TO 20: NEXT 

PAUSE: NEXT ft 
2970 VTAS 4i PRINT * Rtt.it* 

•r-Fuir*: PRINT ! PRINT : PRINT 
QUE FAIS-T'j ■)• j: GET F* 
28S0 IF F« - -R' OR F« - *p* THEN 

2900 
2B»C GC-0 2830 

29,jC ic =• - ■() then yTAB 9; HTAB 
.5: PftlK" -RESIS-Eft' 
29-0 ;b c, . .z- T^gjg yr AB 9 , ^ aB 

tS: PR:*fr -FuiR* 

29?0 ! ■ I » HHFt - IT < rno ( 

:i • 3): IF ha • 2 ym£\ 2970 

2930 MV • INT ( RNO (1) • 9) • 

ZiVIE ■ VIE - MV 

2940 PRINY . oftivr 'Tu percs 'H 
v* POINTS OE VIE.': PRINT -T 
A VIE N'ES T PLUS QUE OE 'VIE 

2930 EC - INT ( RNO <I) • 5H 1 = 

EC - I "HEN PRINT : PRINT E 

C" VOYOUX S'ECHAPPEN-'NE PER 
PAS - i PRINT •COUPAOE!* 

2940 GET -*: GOTO 2830 

29711 : c : - 1 tme-j print , pr-vt 
■:jf- :ls NE "E voient pa$'*: 
ps;v' -TU lEUR ECHAPPE!*: OOTO 

cso 

2980 I c c * - *=• THEN PRINT : PRIN 
■"'. REL'SSIS A .EUR ECMAPPER'ORA 

VO'"*i OOTO 2080 
299P PRINT -PJFIN'TU LES AS BAT 

T US, BRAVO' "•: GOTO 2090 
3030 HOME : SPEED- 233 
20:0 REM •••SCORE 
2:20 HEM •••ET BILAN 
3C30 FOR EFF - 1 TO 24 1 CALL - 

912 

3040 LOOP - 3: GOSUB 500 1 NEXT E 



3070 INVERSE 1 PRINT ' 
BILAN 
■ : NORMAL 
3080 PRINT •.■■ 



3090 IF ARGENT • BANQUE ( 10000 

00 THEN 3140 
3100 GT - (ARGENT • BANQUE) / 10 

00000 
3: 10 GT • INT (GT • 100) / '.00 
3120 VTAS 7: PRINT 'ARGENT GAGN 

E-->*QT* rai 11 1 on*' 
3130 GOTO 3130 
3140 vTAB 7: PRINT 'ARGENT QAON 

E — >*ARGENT • BANOUE' Fr' 



pifFefeN'cs* 



nr 1 / 



<25- -^3^ah. 



ATTENTION, ATTENTION 

Pour to mo4* rTsoOt vout 
•v« droit a un rxMn+ro qum- 
fJfup**. r««4wv«z-t* d*« mtfrv 
Irwntehi voAnc t w mA m. 
PmnMon k 2 AoOt. 



::;. DAM ■ -,= . 

*jAR • ffEn • ! 

■■ : »<«NI ■SAJWCITI") 

3170 X - I\T (J / ;2k<x . - 

■ • i 
3190 °ft:sT 1 PRINT *TU AS VOYAS 

E ■< ANT.EES P '<<:■ MOIS* 
3190 REM CAtCWL DU SCORE 
3210 C - INT (CAAACITE / 30):A - 
INT ((ARGENT * 9ANOUE) / 43 

0) 
3220 SC - 1ST (ic • A> • 3) 
3230 PRINT 1 PRINT *T0N SCD»E E 

ST— >*SC 
3240 VTAB 14: IF SC • > 30000 THEN 

INVERSE 
3230 HTAB 3: PRINT *AS*t NOW*** 

: VTAB 14i MTAB 20: PRINT *S 

CORE)30000* 
3240 IF SC ( 50000 ANO SC ■ > 

20000 THEN INVERSE 
3270 HTAB 3t PRINT *GLOBE-TROTT 

Eft* : NORMAL 
32B0 VTA6 17: HTAB 20: PRINT *2 

0000(SCORE<SOOOO* 
3290 IF SC < 20000 AND SC - > 

80C0 THEN INVERSE 
330C HTAB 3: PRINT -HONORABLE V 

ftp*: NORMAL 
3310 VTA8 IB: MTAfi 20: PRINT 'B 

000<SCORE(20000' 
3320 IF SC ( 8O0C TmEN INVERSE 

3330 HTA8 3: PRIN" 'PLAISANCIEft 

■1 NORMAL 
3340 VTAS 19t HTA8 20: PRINT 'S 

CDRECB000' 

3330 IF SC ( 300 T*EN PRINT t PRIN 
•Et |l tu ritttit cft»: tO'■'• 

3340 IF SC - > 300 AND SC < 10 
OC THEN PRIN" : PfilNT 'Pour 
cyo: (Ml d'»f<ort* sour %< 
D4U'" 

3370 IF SC " > 30000 THEN PRINT 
1 PRINT *Ou» la (ornrn tt » 
ott loujourt'i RRINT 'arosic 

3331 IF 3C ( 30000 ANO SC " 1 
30000 TVTW PRIST , prikT 'S 
iljt • tor flr»r;fl «or*o» 1 "' ' 

3390 ODSUB 3300: GDSUS 3400 
3400 VTAB 23: PRINT 'VEUX-TU SE 

J0USR»*ji GET -» 
3410 IF T * - *0" OR T* - 'y- -HEN 

CEAR ! GO'O 20 
3<20 HOME : END 
3430 REM ••■TRAITEMENT OES ERR 

EURS 
3440 ERR - PEEK (222> 
3430 E - E • I 
3440 IF ERR - 77 THEN END 
3470 IF E - 43 THEN RESUME 
3480 IF ERR - 77 OR ERR - 37 then 

RESUME 
3490 OOTO 730 
3300 REM ATTEND UNE TOUCHE UN 

CERTAIN TEMPS 
3310 FOR PAUSE - I TO 400 
3320 T - PEEK ( - I43B41 
3330 IF T ( 128 THEN NEXT PAUS 



POKE 



3340 
3330 
3340 
3370 
3380 REM 
3390 REM 
3400 REM 
3410 REM 



14348,0) RETURN 



Ftbnc* 
PENOT 
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Suite 09 la pege 21 

373C PPINT •ctfcd ticc-rrHccrticr 
CrJCTC-fcCCCCCCCCC'' J 

3749 PRINT "cdccrv-dc ccdcdcrc 

CCCft CC" > 

3710 PRINT "dccrrfir/iccnirf'.firc'ircc 

ccccteccccdcccccdcc" j 

3768 PRINT "cdccccd drr*iw;cd<:cdccc 

cccd^ccrv: dec"; 

3779 PRINT "cd cccd«w«Mc:dr'-d 

cdcccccccccccdcc" ; 
3789 PRINT "^ccdrrcccdctccccdrccdcc 
cncdcc dec" ; 

3799 PRINT "c drcrv- dCCCdCC 

cccdccnccmncccTdcc" i 
3899 PRINT "cictorci'l'rc'-cd'-d'r'-.rd 
cccdcccrmMccccfrdrc'' i 
3819 PPINT "c cd dcrc-orrcd 

: dcccccc c"j 

3829 ppint "excccdcccecececdce d 

crrdTccfncrccriTrrdr:" . 



3839 PPINT "crc rdcrncrd 

ccdcc-acnccccrawccdc" i 
3849 PRINT "cccr'-ri-rcrrccrcrirceccri 
CCd CC1*CC<ZCrzrrcr_rir" . 

39*59 PPINT "r inccHecccnc 

cccdccnr: dc" > 

38*39 PRINT "cccdccccncccccrdc 

decer re re recede" ' 
3979 PPINT "ecvedceeeeeeceeedcdecce 
ceed dc"j 

3889 PPINT "ecMdccecc d dreww 

•tcedecccecdeerercc'' i 
3899 PRINT "cecdeeceec reeled*- rrmnm 
i%cececceccdcecrr'-r" i 
3999 PPINT "c 

c"> 
3910 PRINT "c»«e««#e«-***»*»»»*!< , «'?A«»» 
••••••»»*f»#««**»ee"irHP«' - 1 1 -LOCRT 

F. 1.1 PRINT CHR*M1> 

3929 LOCATE 1,1 PPINT "PECOPD 

SCOP€ TEMPS SftCS VIES" 

3939 INK 1,19 PI0-ll.0r9TF 39,24 P 

EN 2 PRINT "m" 'PEN I 

3949 EI -OTTO 1020 

3959 PEM OUflTPIEME TflBLERU 

39«59 y>."Z\ -XXV.-21 'YV.-9 YY*i«9 UV6 

7*<-1 IJIIV.-15 WSf^S'UUt'i'*^? VVf-i-17 U 



1 *-;*3*5 ' V 1 V.* 1 7 PEXV." 1 4 1 PEY'^- 1 7 

3979 MODE 1 'ORIGIN 9,490' INK 1-9<P 

EN 1 

3989 PRINTPRINT'PRINT 

3999 PRINT ■ceececccecccrecf-rrrrrcr 

cccccccccccceccccc" t » 

4999 PPINT "c 

c c"; 

4019 PRINT ■ cdccccccrcccccrcdrrrr-n 
cdccccccnccTvcfrcrtrc" i 
4929 PRINT "CdC dcnr*cc 

cd ciM*ccccccct»*»dc ■ i 
4030 PRINT "cdcdccnccdcnecdcdcwiMTT 
cdcdcccccccccccccc" i 
4040 PPINT "cdcdcccccdccn«dcd 

ded c"j 

49*50 PRINT "cdcdcccccdcccedcdcrccc 
cdcdccccccccdcccdc" i 
49<59 PPIHT "eded d ded cc 

ded d dc" i 

4979 PRINT "cdcdccccccccccdcccdccd 
cccdcccdccccncccdc" i 
4089 PPINT "eded d rdc-d 

c d d cccc dc"i 
4999 PPINT "cccrrccccccnccrc-d deed 

dcecdcccdccecdcdc" l 
4100 PRINT "cdcdCccc-rrwtCiYedrdc<-d 



3420 REM ** 

3430 REM 

3440 REM —)ADDR£9SE 

3430 REM 

3440 REM RESIDENCE LE VINCI 

3470 REM 103.AV.TRESPDEY 

REM 44000-PAU 

^fi~c**i*ie<*T i*(- P^3^ 
Awn vwtt * 1 "* t '^S/r 

ed d denced d>- M I 

4119 PRINT "eded eceeeeeeeded--rd 

cdcccccccdccccccdc" ; 

4129 PRINT "edcdccdeneec- eededeed 

cd d dc" i 

4139 PRINT "eded '"de<-eeee weeded d 

eecccdccdcccccccdc" i 

4149 PRINT "cdccdcd dedr<-d 

cene d d dc"i 

4119 PPINT "ed derrrrrYireeed dc»d 

eccrccr»cdccccp»ccrtc" i 

41*59 PPINT "cnccdedcweceec-rdedeed 

c ccccdeeeeeme'-r ■ . 

4170 PPINT "ecccdcdcenrcc*Ycr^cdtiw:d 

edcdcYieeeeYieeeerfnr" . 

4190 ppint 'txewted/rdcdcdcdcdcdccd 
cdcccccccecccceccc" i 
4199 PRINT "r 

4?99 PPINT "r»* K.>oi<». »«r* «•*•••>*■•♦ 
»e4>«**?9«A4F#e«t7*«c":CHRt|< I I - i i" Hi 
E 1. I PRINT CHRtfll > 
4219 LOCATE 1-1 PRINT "PECOPP 
SCORE TEMPS Sflr^ V!E8" 

4??0 INK 1 . 18 PIO-l LOCATE 3<> . 24 P 
EN 2'PRINT "w"-PEN I'GOSUB 27*S0 
42?9 Et r.flTn 10?R « 
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CARAC 



ZtfAZAM 



ZX81 



Transformez votre ZX banal en un ZX haulement r6- 
aob... 

Thierry DEMORRE 

Mode d'empkx . 

Tape* el lancez le programme chargeur. Tapez 320 a la question 
"Longueur REM ?" e( renlrez les codes MACHINE du listing 2. Sup- 
pnmez ensuite les iignes a ^exception de la i REM et tapez le lis- 
ting 3. Ce programme permet la redefinition de caracteres et dote 
votre ZX de minuscules Ainsi, la voie de la haute resolution est 
ouvene, les indications necessaires sont incluses. 




|oi>^HE v/Wmm uV 

99(1 VifV^ 

MdKt 




ATTEKTION. ATTENTION 

Pour l» mola d'aoGi vous 
avez droll a un numero qua- 
druple. reservex-M) d*» main- 
tenant chez votre charcuiier. 
Parutlon le 2 Aotrt. 



LISTING 1 



ccaooSSSa888888888888888S88 00000 

39 if pee*, .issi*! >>B3 t«en so 
to aee 

30 let fi»«-cc>a3afsia"?**»i*»aec 
:>3Eaaaa7F*33i*»eae9a3?."*82i8a*»3 

*• roa N.1651* TO 163*8 

s» poke N.i6»cot>E nucooe Htia 

1 -*76 

69 let nitnii) TO i 
?• next n 

89 PRINT ■ kONOueuR REM T" 

99 INPUT r 

- - r-30 



a b ?.aV*oB7i cls GTrU ~ii ne 

XT TAN Y( OOSuO ""oSSOR RNpfflN V 

3 fiosue_- " 











m 
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CHRI 








L38.P 




























































tm 


save - 




a « 


s? 




LISTING 


2 




Wtt 


n w 
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Ktt 
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4.1 
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"ERN035 
ETuRN 
R345 INKEYI 
, S5N 1 DIM 



INT 



ITRJ 



. JiM 



.TBI FRST ' 
. FOR ,■» I 
I PRINT Lf 



nt ssn rt fm 

2 =:£:■ 

3 CLS 

* LET ESP- 8 

3 LET P.33973 
6 LET T.9 

a rrnd usr issie 

9 FR3T 
19 PRINT ■ENTREZ UNE PMRRSE 
1 CRR. NRX) " 
11 INPUT L» 

ia cls 

-- RT 8,3,-— — — 



■#•1 



667 LET P.I 

668 let l|. 

669 oqsub L. _ 
67* LET ESP.0 

671 LET P.P. 18*331 

let L|."BfilMBMHHm 

673 C03UB 806 

678 goto see 

eeo for a-i to len li 

saa gobub 1900*icode lhaj . 

830 GOSUB 6000 



910 RRNO USR 16810 

930 PRINT RT 9.9,"PAESSER UNE T 
OUCHE . " 
930 IF INKEY|. ■'" THEN SOTO 930 
949 RRNO USR 16531 

iii ftli pmi Tssr 

EST L""flILCHON SUPEHIEUR . Hat*! 

■ LE FUSELR9E ET 1 L""AILER0N IN 
FERIEUR" 

360 PRINT RT 18,0; '•■■: ErrflCCZ L 
R DENO ET LES RE0LESU0U3 GAONERE 
Z OE L""ESPRCE EN MENOIAE: RES 

LES;LIONEB 600 R 999" 

998 STOP 

1090 let fli."isaisoi56 
laai return 

101* LET A|."91S15389ei91033Q37O 

00" 

101S RETURN 

1036 LET A|. '-0*30339370331530332 

*a ■ 

1037 RETURN 

1028 LET fl|-"15S1561531331381581 

53133" 

iasa oftiidn 

"0030100151531531581 



1071 RETURN 
1073 LET Rl 

1073 RETURN 

107* let na 



103O LET R|i 



tolIn li 



(coos liidi : 



370 STOP 

Baa rofl I 
5ie FRST 



631 LET LI' 

eaa oosub >. 

633 LET P-J 



637 30SUB BOO 
038 LET ESP- 
839 LET r - 



P-P* [»♦: 
LI." i" 



530 LET L|i 

631 FRST 

•-2i i^S'JB BOO 



S*5 LET ESP.e 

8*6 LET P.P*na«33) -* 

6*7 let l». n ail mm wm mm 



*3" 

1033 RETURN 

1036 LET R|. 

330*3" 

1837 RETURN 

1036 LET R|. 

130*6" 

1039 RETURN 

10*0 LET R|. 

10*1 RETURN 

10*3 LET R«> 

83 ■" 

10*3 RETURN 

10** LET R|. 

10*3 RETURN 

10*6 LET R|. 

OB" 

10*7 RETURN 

10*8 LET R|. 

10*9 RETURN 

1050 LET R|. 
45015153" 

1051 RETURN 
1853 LET R|. 
B38*3" 
1033 RETURN 
1054 LET Rl- 
1853 RETURN 
1B86 LET R|- 
33" 



"0151830*30*20*31530 

:"0*ai330 130150 15 1339 

"1380*31530150*69151 

" 1380*60151839*31530 

'188186033156923 " 
-1831831830331331531 

188188158033" 

i38i889eee*20339*ae 

1361360*60181839*3" 
1881581880461389*69 

15813B13815S01B91S1 

■ 138 188 15B 158 183 153" 
8331901901991901900 



1868 LET f.%: 
338*63*603*' 
1889' RETURN 
1898 LET R|. 



1093 RETURN 
109* LET Rl 
33031" 
1093 RETURN 
1096 LET R| 



1103 RETURN 

1104 LET R| 

3a- 

1108 RETURN 

1106 LET Rl 
37837837" 

1107 RETURN 
1188 LET Rl 
13015813" 

1109 RETURN 
1119 LET Rl 



37" 



649 LET E5f 
639 LET P.t 
631 LET LH 



!■■■■■■- 



860 LET L 

861 505UB 898 

563 LET P.P. 1B03) 
583 LET ESP.Q 



Z?8»33> 106: 

■ urn m urn t i«e: 

8? 93" 

_ .9 198: 

.P*10_t33) 198" 

• -"iii tlllllH 46", 



'9340460*683*0439*39 

"9030460*60930480469 
"9150140199940330*69 

."9939430438039469460 
."9988378378338888850 



1133 RETURN 

113* LET R|. 

15133084" 

113S RETURN 

1138 LET - !- 

33" 

1137 RETURN 

1356 LET R|- 
3893C 

1357 RETURN 
1364 LET fl|- 
37000" 

1385 RETURN 

1378 LET R|. 

1379 RETURN 

1386 LET Rl. 
338*3133088' 

1387 RETURN 

1388 LET R|. 
1399 RETURN 



i "9339469181830430*39 
'933199 199939199 1999 

. ■ 033 198 190033 1B3 1339 
. " 1861869540188338969 

"1359379379330069088 
."18613803319991 11990 
r 1869159189030009060 

"1381589901919339370 

"1381691380330879378 

"1880379379310210319 

"15818318695*1831530 

"1581831881531831831 

"1581860311531431520 

" 1360999420429*30430 

"1581360239360380309 

"1861581821410310219 

" 1BB1S89331901991909 

"1301588339999880330 

" 1SB1SB8931331330939 

"16818B1521449370370 

"1581669339379331630 

"1581388331831831831 

" 13813899*99*09*9840 

' 15B1S61331331331339 

"1881868878679389361 

" 1869089060*30*39969 

"1881881881331330839 

"1581880338181839*30 

"9399390300399300309 

"9541331580001910330 

"133133" 
"1661880331900111909 

018018183943" 



1319 LCT R|* 

1311 RETURN 

1312 LET R|. 

1313 RETURN 

1336 LET R|. 

1337 RETURN 

1330 LET R|. 

1331 RETURN 
1333 LET R|a 



018913013015186916 
939" 

183003168163153153 

830" 
94315305*816933e9SO 

'1830160081319330379 

"1581360038338338330 



03" 

1361 RETURN 
1363 LET R| 
1363 RETURN 
136* LET R| 
7*839- 
1385 RETURN 

1366 LET Rl 

1367 RETURN 

1368 LET Rl 
33181 * 

1369 RETURN 
1378 LET Rl 
1371 RETURN 
1373 LET R« 

1373 RETURN 

1374 LET Rl 
38839'- 
1373 RETURN 

1376 LET Rl 
S6830 

1377 RETURN 

1378 LET R| 
81933" 

1379 RETURN 

6813 FOR 0«1 TO LEN Rl STEP 3 
6914 If ESP (32 THEN 50T0 6939 
8916 LET ESP.O 
6016 LET P.P*(8*68) -16 



168186039839033008 " 
1861861881561311631 

930174193161" 

1519331861681861569 

188188174 1SB1B6174" 

186188188939939" 

9391881881881661861 

9391561669388381561 

0339819461651650489 



tZ■.^ 



LET 



6939 POKE P>*T*ESR,URL RltG TO . • 
6931 LET T.T+33 

tea; sexT 5 

602* LET ESP.ESR*! 
6923 LET T«9 
6038 RETURN 
8999 5RUE "CR»R> 
9999 CLS 

--PRINT RT 19,9. "ATTENTION, UN 
"** PEU DE FAST" 

13,8,'aiBflBi mtmm 



HT 31 

9930 IF INKEYI""- 

3030 CLS 

9068 LET P.33873 

9879 LET T.9 

9375 RRNO USR 16316 



. "PRESSER UNE 
THEN SOTO 9830 











LISTING 4 




ESSRV?5 c 8 N I !i I 858 5 S ?SSkB»?f 5 


LI8NES : CARRCTERCS 










658. . . 000 00 000 




673... aaoeeeoeeeeseeeeeoe 

969... MRINTENRNT.C EST A UOUS 













THOMSON T07,TO7 70,MO5. 

T Suite de la page 6 

99 gi = IMT'17XDa36>*2!02=IMT<PF!D»[3^'S:° = P 
OIMT(01l3*e, 0219.2- 

96 IF PO-1 THEM 95 

97 C0L0R&2:L0CftTEOl.O2;PRll(TCi?<(O3>:F)EXT 
I: NEXT C 

99 RETURN 

99 DATA 3.2,4.3,4-6,3,6,6,4,7,7 

19B DATA 3,2,4,3,4,6,8,6,6,3,7,7 

18! DATA 3,2,4,8,4,6,12,6,6,12,7,7 

;e* Jl=INT<PNDt36>'2:J2=INTfRN&«18>*2!P= 

PuINT(Jl»8*2, jaag*2^: IFP' / - 1 THEN132ELSEP 

SET(Jl,J2»CR*f4>: RETURN 

183 Sl-INT<PNDa36>*2:S2-INTi RNDI17 <*2:P= 

P01NTC5ia8*5,S2»8.3': If P=- I THENPSETf SI , 

S2>GPf(e>,3:X"Sl:V=S2:RETURNELSE195 

188 CLS:C0L0Ri:L0CATE12,3:PRINTQPI'^?. :L 
0CRTE12, 13iPRII«TuPf'55):L0CRTE27,5:PPINT 
GP.X54>:L0CA7E27, 1 5: PRIMTCR»(56 > = L INE' 13 
,3,-<26,5)GP«<42>,l:LI«(13,15>-<26, 15>C 
R*(42>,i:LINE'12,6)-C12, I4>CPf'*4>, t s u I •* 
E<27,6>-(27, 14>uP*'44-, 1 

189 COL0R3:L0CRTEI5,7:PRINT*Difficul t«': 
COLORS: L0CftTE13, 9f PRINTT-i LOCATE 15, HtP 
PI NT •«*: LOCATE 1^, 13iPRINT*C-":C0LOP2!LOCR 
TE18,9:PRINTTa C1 l e -:L0CRTE13,ll!PRINT-r 
O^an'sLOCRTElB^SsPPINT-CiffU.lfJCOLOR 
3JL0CRTE6, 13:PPINT-Tap«z lur 1* touch* d 
esira" 

118 A»=INPUTIC1>J IFA*="F*THENDI=i:BA=-.e 
jEL3EIFA«=*H*THENDI=aELSEIFflf=*D # THENDI* 
3ELSE116 

111 CLS:tOT0148 

112 CLS:ATTBB1,1:COLOR7:lOCOTE7,2!PRJNT- 
R«9l« <Ju jeu":ATTRB8,e:C0L0Rl!PPINT- Ai 
4cz 8cuf'j> lc serpent- a par>9«r les poaa 
es qui se trouvent 4ans dec lab^rin-tnes 

de plus en plus complexes. ' :C0L0R3 

113 COL0P3JPRINT- ria, s t i i ul S€r #i t fat 
al d* heurter le: iurj d* ces labyrinths 
s, d« croiser s« propre queue, 4insl que 

de aanecz les pobbcs opoissonnecs "i 
ui pcuvent 4ppar-a:tre soudametcnt. " :C0 
L0R2--PRINT' Attention , tl exlste de m-js 
tencuses * 

114 PRlNT'trappes dans les ./m*t laOsnn 



■;jC0L0R2:PRIMT-&esc«ndre*:L0CATE22, 15:C 
0LOR5: PRINT "L '; :C0L0R2:PRINT , Cauche p :C0 
L0R5:L0CATE22, 17:PRINT-M -;: C0L0R2J PRINT 
■Oroite" 

116 L0CATE4,28!PRINfPour le aenu tapez 
Eur ■; :C0L0R3:PRINT*entree*:COLOR2a0CAT 
E16,2t:PRINT'0u*:L0CATE2,22:PRINT-Sur *; 
:C0LOR5:PRIHT-H '; :C0L0R2!PRINT"pour les 

18 aeilleurs scores* 

117 IFSTRIC<B>--lTHENClSiG0T0148ELSEfll=] 
NKEYI: IFAI>'--TNEN117ELSEIFfll=CHR«(13>THE 
NCL5:C0T0148ELSEIFAI='H-THENCLS!COTO125E 
L3EJ17 

118 IFINKEYtO*'THENlI8ELSECLS 

129 F0RI-lT0ie:IFSSf IKSC THENSS=I = C0T0I 
21ELSENEXT 

121 IF SS-18THEN123 

122 F0RI"18T0SS*l3TEP-i:SS<I>"SS<I-I>:NN 
*(I>-NN*(I-1):NEXT 

123 ATTRBI,i:C0LORl!LOCRTE9, t: PRINT "BRAV 

! ' ":COL0R5!RTTP81,8iLOCATE4,4:PRINT'V 
ous avei un des':C0LOR3!LOCRTE2,6:PRINT- 
18 rteilleurs scores' :ATTR89, 8: C0L0R1 

12* LINE(3, 15>-f33, 13)GRI<42>, I:LINE(3,1 
9)-<33, 19>GR«<42>- I : PSET<2, 13)CR*(3B), |1 
PS£ T '2, 19>CRI(38>, i:PSET(34, 13JCRt(3I J,l 
:P3ET'34,1?>G,R*(51), I : *»•< I )»":C0SUB288 
123 CLS=HI=B:COT0133 

127 P«-INPUT*f]>! IF PIO**TMEN IFPS = CHR* 
(I3JTHEN132 

128 IFPI-CH»*<8J OP P<-CHRfC29)THEN XX-X 
X-i: R*'HID*CRI),1,LEN<RS>-1> 

129 RR"HL0CftTEXX*l,YYtpR[NT--;;C0T0126E 
LSE 

138 L0CATEXX,YY1XX=>!/.*::PRINTP*:R<"RI*P* 

1 rr LEH ^RI>M8THEN132 

131 C0T0I26 

132 HNI(SS)-PHCOT09 

133 C0L0P1 : LOCATES, 2= PRINTCPK 33): LOCATE 
8, 22 : PPI NTCRK 35 -!L0CATE38, 2: PR I NTGRK 5* 
ML0CATE38,22:PPI^Tr J PS(36HLINE(9,3>-(8, 
21)CRt<44),l:LIt«E<5,3)-<3,21)CRiM4>, |>L 
INE' 14,3)-< 14,21 )CR«<44>, 1 ! L 1NET38, 3)-<3 
8,2I>CR«(44),1 

134 FORI -2T022STEP21L INE' 1, I >-(37, I )CRI' 
42>* 1 :«EXT I :COL0P3: LOCATES, 8!PP I NT -L«s I 
8 4-jJIeurs scores- 

J33 SS(SS>-SC:iYY-3*(SS-l>»2 

136 F0RI«lTOie:0-INT(RN0«3)*2:COL0RDiL0C 
ATE2,3*(I-1)82iPPIfJTUSINC-|I'( I;:L0C(1TE6 
,3*(I-l)l2iPRINTUSl»«C*a«»9»-;SS' I);:LOCA 
TE13,3*<I-l>a2:PRINTNNI(I>j!NEXT:YY»3*<S 
$-l>a2iXX«lHZZ-lJR<--*: 

137 LOCATE6,23,9:C0L0P2:PRINT"Taper fur 
une touche - :C0SUB132!CLS>C0T0II2 

136 SCREEN6,B:L0CATE2,4:PP[ntCR*(53>:L0C 



ATE6,4:PPINTCRI(51>rL0CATE7,5:PRlNTGRf<4 

9>:L0CATE7,9sPRINTGRSf52>:L0CRTE2, 16: PR I 

NTGft«(35):L0CATE6, 18: PRINTGR*(51 ): LOCATE 

7,ll:PRINTGRK49J:L0CATE7.15:PRINTGR*(52 

;: LOCATES, I6:PPIKTCR*(51 ) :L0CATEI8, 4.9:P 

RIHTC*t*<S31 

139 L0CATE14,4:PPINTCR*<;54>:L0CRTE14,16i 

PRINTGR«f36>: LOCATE 18, 16:PP1NTGRK55)!L0 

CATEI7,4:PRINTCR*'49i:L0CATE21,4,8:PRINT 

GRK49)[L0CATE21,16:PPINTGR«(56>:L0CATE1 

7. 16:PRINTGRf<55>:L0CATE24,4:PRINTGR*<53 

J:L0CATE28,4iPPINTGR*(51>:L0CATE28,9:PRI 

NTGRK51) 

149 LOCATE24,I6,8:PPINTGR*(52>:L0CRTE31. 

4:P»INTGR*f49>:L0CATE35,4:PRINTGR»<49):L 

0CATE31,9:PRINTGP1<52>:L0CATE35.9:PPINTG 

PI'52>SL0CATE32,9:PRINTGR«f59>:L0CATE34, 

9:PPINTCRf<5n:L0CATE33,9:PRINTGRt(42)!L 

0CATE33, I8!PRINTGPf<.49>:L0CATE33, 16:PRIN 

TGRI<52> 

141 L0CATE8,B,8:LINE(3,4)-(3,4>CRIC42),e 
:LINE<2,3>-(2, 13>GP*M4J,8JLINE<3, 16)-<5 
, 16)GR*'42),8iLIHE(3, 18J-t5,18>GR*<42>,8 
:lINE<7,6>-<7,6)GR»(44),8:LIfIE<7, 12)-(7, 
l*)GR*<44),8:LINE<19,5)-a8,15)GRt(44),8 
:LINE<14,5>-<14, 13>CR«<44),8 

142 L0CATE8,8, 9!LINE<1I,4)-(13, 4)GR«<42) 
.8:LINE'll, I6>-' 13, 16>GR*C42>, 8:UNE( 17, 
3>-< 17, 13>GP*<44),8iLINEa3,16>-<28, 16 >G 
RI'42>,8:LINE(21,S)-<21, 13>GRS(44>,8t LIN 
E'24,5)-(24, l3)GR«<44),8:i.INE(23,4>-(27, 
4>CR((42),B:LINE<23,9>-<:27,9)GR*<42>,e 

143 LINE(31,5>-<31,9)GR*(44>,8:LINE(35,5 
>-'33,8>GR*(44>,8:LINE<33, ll)-(33, 15)CR« 
<44>,eiSCREENI,8,8 

144 LINE(12,7)-'12, 14)GPIt4B),5:PSET(I2, 
6.GR«<B>,3>PSETU9,6>GRK6>,6!PSET<4,14> 
GRI(6),4iPSET<27,b)GRI(6>,6iPSET<33,5)GR 
*<6>,4:PSETC4,6)GR«<4),2(PSET(28, I1)GR«< 
4>,2:PSET'36, 12>GRI< 4),2:PSET(33,7)GR*<4 
>,2iPSET(3,3>GR*(7),7iPSET<26,13»GR«(7>, 
7 

145 PSET(28,9)GRI<7),7:PSET(6,12)GRf<7>, 
7:PSET(I9, I3)GRt(4), 2:COL0R3:LOCATEI8, 19 
:PRINT*P»r rterien ronan" :C0L0R2:L0CATE7, 
22:PRINT'Appu»el sur une touche' 

1*6 !FINKEY«O'-THENl46ELSEG0SUB132:CLS: 
RETURN 

147 Z-RN&«AI«INKEYItIFAI-"*THENZ-RNOiGOT 
0I47ELSECLS'RETUPN 

148 LOCATES, 8,fl:C0LCRl:PRINTGRI( 41 ):LOCA 
TE39, 8, 9: PRINTCRK 4 3>: LOCATES, 28,0 SPRINT 
CRt<46J:L0CATE39,2B,8iPRINTGR*(43>!LINE< 
1.9>-'3e,9)CRI(42>!LINE<l,2e)-<38,28)GR» 
'42>:LINE'B, l)-<8, I9JGRI (44)iLINE<39, 1>- 
'39. I9)GRi(44) 



149 C0L0R3:L0CATE6,4:ATTRB1, UPRINTl. H 

anette-!L0CATE6,7:c0L0R7:PRIMT*2. Touche 

£":COL0R5:L0CATE6, ie:PRINT"3. Para»«tres 

":L0CRTE6,13:C0L0R2:PRINT-4. Regie du je 

u-:COLOR4:L0CATE6. 16:PRINT'5. Fin-tATTRB 

9,e:C0L0R3=L0CATE6,22 

153 PRINT'Appuaez sur le nutcro desire" 

151 IF3TRIGC8)»-!THENTU=e:CLS:GOT08ELSEA 
f=INKEY*:IFAI='l-IHENTU=B:CLS!GOT08ELSEI 
FAI = *2 > TrtErtTU=i:CLS:G0T08ELSEIFA«--3'THE 
N188ELSEIFAI='<-THEN112ELSEIFAS=-5-THENC 
LS:C0L0R2: PRINT- Au revoir •: END: ELSE 1 51 

152 REST0PEI34:F0RI=IT037:AZE-RND:READE» 
:PLAYE»JAS«INKEY«:IFA»"--THENIFSTRIG(8>- 
9THEN ELSEPETURN ELSERETURN 

153 NEXTI:G0T0I52 

154 t>ATA'T3*,*L28-, 'AB', -03 - , -FAI", "LA** 
.•DOO*, -LA9','FA9* 

135 OATA'LAI',*DOi". *RE', "RE»*» *LAf, *02 
■. -LAf, '03LAI* 

156 DATA-REO-.-LAI-.-REOVniVFA*. *S09 
*. ■f>0f,*S0f,*FA* 

157 DflTA*SOa'>'D0«". *S09*< *D0«' . 'RE*, 'RE 
I-.-L4BFA- 

138 DATA*L28FAt*,*FAf,*P-,-p- 

168 HX-XtHY»YtA«-INKEY|: I FAI> * * THENI 69 

161 IFAI.-A*THENXfl-8:YFl— i:C0T0164JELSEI 
FH»=-O*THENYr1«i:Xrt"0:GOTO164ELSEIFAf.-H- 
THENXn=i:YM-B:G0T0164ELSEIFA*» , L*THENXH= 
-i:Yrl-0:GOTO164ELSE168 

162 MX»XtHY-Y: A)- INKEYI I I F At- * 'THEN 1 64 

163 IFA*«-A-THENXH«8JYrl— 1ELS£IFAI»'0*TH 
EN YH"HXfl"8ELSEIFAI-*l1'THENXr1.1!Yrl = eELS 
EIFAI-'L , THENXN--i:Yrt«3 

164 X»X*XNiY-Y+Yli:R=P0INT{X»8*5,YI8*5HI 
FP=-1THEN167ELSE0N R G0T027, 165, 167,27, 2 
7,27, I66«G0T0167 

163 SC-SC*18iP0-P0-liL0CATE7,22:COL0R7iP 
RINTSC:L0CATE21,22:PRINTLABtPLAY'A8T3L30 
40091 -:IFP0"BTHEN28ELSE167 

166 G0SUei85:G0T0167 

167 PSET<HX,HY>CR»<48>,5:PSET<X,Y>GR*(9> 
,3 

168 IF =■«[■■■ DU THEN 169ELSEI62 

169 J1-1NT(RNDI36>*2: J^.1NT(RND•17>.^:P- 
P0INT(J19B*5, J298*3>"irP«-lTHENPSET. J], J 
2>CR*C4), 11G0T0I62ELSE169 

288 FQRD*lT018iDf (0>-":NEXTiL0CATE8, 17: 
COL0R2>PRINT-Quel est voire no>7 *):C0L0 
R3:rOR">-lT01B:AI.INPUTKl>:IFAI-CHRI<13) 
THEN292ELSEPRINTAIi:0i(0)-Ai:NEXT0 
282 NN«I>-Ds<l>*Df'2>*DI(3>*l>l<4>*Dt(S) 
♦ t>»<6)*0t(7)*D»<8)+O«<9>*C>l(18)*0l(ll)'»0 
I'12>*DI(13)*DI(H)**»(13)*[)»(16>*DI(17) 
.-■•'ie>:RETURN _ 

1988 RESUME NEXT • 



FUPPY 



DtSgommez a souhait les protons qui pullulen! dans un 
reacteur nucleaire. 

Laurent KESTELYN 




TI99I BASIC SIMPLE 



ATTEMTIOH, ATTEHTtOH 

Pour I* molt d'oout vout 
•vtz droll t un numoro out- 
drupkj. rot*rv«z-f« dot moliv 
ttntnt ehoz vrrtrt ehoreutior, 
PoruOon lo 2 AoOl 






4830 PRINT - POOOOT 



UCOOQfi 



ruppv < 

TI-99/4A i 



TAPER 



250 REM 

400 REM - - 

EM L.tESTtL'N 1984 

300 REM 

[Nil IAL15ATION •• 

._ 

630 DIM MSC<5>.N0TE(3OJ.H9Ci4i 

EH T'Afl DES TAB D€ DATAS a 
750 REM 

MuSICUE 

930 DATA 196. 262. 262.294.330. 262.330. 294 
: ^.Ts::. 262. 294, 330.262.262. 24' 
930 DATA 196. 262. 242,294. 330. Z~ - 
. 262.2*7 

10OO DATA 196.220.247.262.262,262.262 
1050 DATA 22l>. 220.247, 220, 196, 220. 247,26 
2.220, 196. 196. 220, 196. 173. 163. 163.220.22 


1100 DATA 220.220.247. 220.196.220, 247. 26 
2. 220. 196. 196. 220. 262. 247. 294, 262. 262. 26 
2,262 

1130 REM DESS1N 

1200 DATA 000020191DOE0619.001819741B7ED 

818, 0000049888706098, 406028F6F6236040 

1230 DATA 98607CB89904, IBDB7E18241818. 19 

06OE1D182.02O6146F6F1 40602 

130O DATA 42C3241B1B24C342.FFFFFFFFFFFFF 

fFF.iaiB24C3C3241816.A37E£?5A5AE77EA3 

1330 DATA O0OOAAAAAAAA.0.OO3C0O3CO03CO03 

C, 53AA33AA55AA55AA 

1400 DATA 000O0OlFlFlB18ia.0O000OFFFF.0O 

0O0OF8F91B181S. 1818181818131818 

1450 DATA 131B1SFSFB. 18181B1FIF. iei81B=F 

FF1B1818 

1SOO DATA 8040201008040201. 0102040S1O204 

■ :■ .■ . 

1330 REM 

1600 REM SILENCE. ON TOURNE 

1630 REM 

17CO CALL SCREEN (2> 

1730 CALL CLEAR 

1BOO RESTORE 

1B30 FOR I-l TO 29 

1900 READ NOTE::) 

1950 NEXT I 

2000 RESTORE 1200 

203O FOR I-l TO 23 

2100 CALL SOLWD<-2OO,N0TE<I).0.NOTE(I>«l 

. 239933, O. NOTE ( I )« I . 498336. O) 

2130 READ A« 

Z200 CALL DHAfl &3+I.M1 

2230 NEXT I 

Z3O0 FOR 1-0 TO 1 

23SO CALL SOUND (-20O. NOTE 12*> 1*24) , O, NOTE 

(2* 1*24) • I. 239933.0. NOTE 1 2* I *24>-1.49B33 

6,0) 

2«rtrt « — ■ 

24SO CALL CHAR<:2S*8«I.A«> 

2500 CALL SOUNO(-200.NOTE12-I*25).O.NOTE 

(2* 1-231 • I. 25 9933. O. NOTE !2»l*23>- 1.49833 



4900 CALL HCHAR t 24, 4.85' 

4950 CALL HCHAR (24.3.91. 231 

3OO0 CALL MCMAR(24.28.84) 

3030 REM CLASSE'.LA COULEUR 

5lOO GOSUB 222SO COULEUR 

3130 U-I6 

52O0 DEM-O 

5230 NIV=1 

3300 FOR J-l TO 3 

3330 FOR I-l TO 16 

3400 IF I-ll THEN 62O0 

3430 V-V»l 

3300 IF V<71 THEN 3700 

3330 RESTORE 

3600 V«0 

3630 GOTO 3800 

3700 READ A 

3730 CALL SOUND (-SOO. A. 0. A*l . 239935.0. A» 

1.498336.0) 

5BOO CALL COLOR (8, I, U) 

3830 U-I 

3900 CALL »"EV{0.K.S1 

5930 IF S-0 THEN 62O0 

6000 IF K-13 THEN 6400 

6030 IF K-32 THEN 6200 

61O0 NIV=NIV*l»CNIV-3>»3 

6130 CALL HCHAR<20.2I.48*NIVI 

6200 NEXT I 

6230 NEXT J 

63O0 DEK-1 

6330 NIV-3 

6400 NIV-4-N1V 

6430 CALL COLOR (9. 16. 5) 

6300 REM 

6330 REM AFFICHAGE INTERDIT 

6600 REM 

66SO CALL CLEAR 

6700 CALL SCREEN(2> 

6730 GOSUB 219SO EFF/COUL 

6BOO PRINT 

6B50 PRINT - ccors:0000O hi scoreiOOOOO 



7000 PRINT " STOIMKLLKOOOKLLKMIOUSVVVW 
703O PRINT " SOHIIMMHJIMIJMfWIIIHOSWWV 



144*8*1. A*) 



2330 CALL CHART 

2600 NEXT I 

2650 CALL SOUND I-300. 220. 0, 277. 0. 330. O) 

2700 K-37 

2730 VOL-0 

2830 GOSUB 14530 VU-M 

2900 CALL SOUND(-3OO.247.0.3ll,O.370.O) 

2930 CALL CHAR (89, - 10101OIO101O1O1O" J 

3000 CALL CHAR(90.-OOOOOOFF-) 

3030 CALL SOUNOt-4230,262. 0,330. 0.392.0) 

3100 CALL CMAR<91."0") 

3130 CALL CHAR(92,-33AA33AA33AA35AA") 

32O0 CALL CHAfi(93.-FFFFFFFFFFFFFFFF") 

3230 REM 

EM JE ME PRESENTE... 

3330 REM 

3400 RESTORE 1030 

3430 V-34 

33O0 GOTO 370O 

3330 CALL CLEAR 

36O0 V-O 

3630 RESTORE 

37O0 GOSUB 21930 EFF/COUL 

Ml • SWIIISUOOORJUJJJJ Jl JJ3IS 
3B30 PRINT - S\M\\UOO0RS]]])3J]in]J]S 
3900 PRINT - 9\WI\W\ISUOODR]IIlll]JlS 
5990 PRINT " S\M\\\I\IU000W]J]]]J3US 
4000 PRINT - SWIWWWVIIISUOOORUIJIS 
4050 PRINT - UQOOOORI\I\I\IUOOQRSlj;jJS 
-.- "POOOOORSIIIVIIIVinSUOOQQQT 
4130 PRINT -SICCCISUOOORI AMMUOOOOOR 

: f : uooors i \ \ \ i i i \ I \ t \ \ 8 

4230 PRINT -SttCCCCCCtSUOOCRIWWWWS 
4300 PRINT -SttCCC£ttCUQOORSI\'\WlI\\S 

.r -s[ccttrccctEUSuoocfl\n\\s 

4400 PRINT -SCIt [[[[C£tCCCUGQORS\I\\\S 

44SO PRINT -U 

45O0 PRINT - 

I [NT - UOOOOR PSQ0Q1 

46O0 PRINT " POOORS (POOOP 

4630 PRINT - S9A6SS SS»Af-S 

4700 PRINT * SGMCS3 niv«ui 1 SSGMCS 

4730 PRINT " SFEDSS BSRSOfl 

4SO0 PRINT - UOOOTS SUOOOT 



7IOO PRINT • 

7 ISO PRINT ■ 

7200 PRINT ' 
7230 PRINT 

7300 PRINT ■ 

7350 PRINT ' 

74O0 PRINT ■ 

7430 PRINT ' 

7500 PRINT ' 

7330 PRINT ' 

7600 PRINT ■ 

7630 PRINT ■ 
77O0 PRIMT 

7750 PRINT ' 

7800 PRINT ' 

7830 PRINT ■ 

7900 PRINT ■ 

7930 PRINT ■ 




icon X 

i n ioi a 

S01HMMMMM9ABMMMMMMI0SJWJ I 

SOMCMnMMMG XCMMMMNGMOS 

SO I HMMMHMF EDMMMHMH la3bonu» I 




SM I HBMMHMMMHMMMM9M" I MS 
S I I MHHMMMHAHMMMMHM I I S 
SOHIIMMMJIMUMMMI I HO? 

SROIMKUJCOOOKUJ 

UOODOOOQOOOOODOOOOOQT 



aooo FOR J 

KINTCJ/2>/2-INtUNTtJ/; 

■■• ' INTf <J»l)/2) /2-INT (INT( (J+IJ/2 
.' /V I I 

B130 FOP 1-2 TO 3 

8200 CALL HCHAR£13*r.«l. 14*L»I. 128*B*J) 
9230 NEXT I 
B300 NEKT J 

8350 GOSUB 22230/COULEUR 
8400 fT5Bft*"i.fe««C*lyn 1994'' 
9430 LI=24 
83O0 CO>lt 
8350 &OSUB 21200 AFF/MSC. 



3650 PE* GO 1 



B7S0 REM LISTE VARIAf. 

BBOO SC-O 

8830 SCO-lo 

99O0 TEMPO-6 

8930 DUR=NIV 

90O0 TBL-I 

903O NBJ-10 

9100 CALL HCHARI24.4.83.9) 

91S0 -J' 1 '' 

9200 FOR 1-0 TO 4 

92SO MSCIH-0 

■ ■'■■! 
9330 S0N1-323 
9400 SON2-69Q 
9430 S0N3-8R''' 

9500 CALL HCHAR ()B. 25.32.6) 
9330 CALL MCMARf IB.29,53> 
9600 CALL HCHARI18.30.48) 

I ■:iTRt(M3C<N!V> ) 
9 700 Ll"l 

9730 C0-30-LEN(MSG«) 
9BOO GOSUB 21200 
TSSC IF DEM-1 THEN 10700 
9900 MSO«"">>pr«m«*x la touChm<<~ 
7930 LI-2 

100OO CO-4 

10O30 GOBUB 21200 AfF/MSO 

10 100 1-0 

10130 FOR J-l TO 100 

10200 IF I/20-INTII/2O) THEN I 

10230 1-0 

10300 J-INMfND'21 > •! 



"_■ ■ ! > I • I 
104-X. CALL SOUND(-3OO.N0TE<U>.I.N0TE<U)» 
1.239935. I.N0TE'U)»I.49S3:Sa. I I 
1045O CALL KEY(I.K.B) 
10SOO IF H-18 THEN 106OO 
10550 GOTO 10700 
106OO NEXT J 
10630 GOTO 3330 
1O70O CALL HCHAR(2.4. 32.21) 
I075O CALL HCMARII. 10,48,3) 
lOBOO RANDOMIZE 
1083O CL-16 
10900 CAN-0 
10930 CIB-INT(RND«8)*1 

11000 GOSUB 16800 CALC»X x.vr • < AFF/CIB) 
1 1 OSO V=0 

I IIOO FOR I-l TO DUR 
11130 CALL SOUNDI-SO.-I.VOL) 
11200 GOSUB 13600 TEST/CLAVIER 
I 1250 V0L1=V0L 
,11 300 IF DErt-1 THEN 11600 
1 1350 IF S THEN 3330 

11400 IF INTIRND«(DUR*.3))THEN 1 I9O0 
U430 TTIR»CI8 
115O0 GOSUB I85O0 TTIF: 
U330 GOTO 11900 
1160O FOR J=-l TO TEMPO 
II630 CALL JOVST(I.DY.DX) 
11700 IF DX*DY*DX«DV-0 THEN 1 1 830 
11730 GOSUB 1B330 TIR 
11800 J-TEMPO*! 
11330 NEXT J 

11900 IF CAN-1 THEN 13730 
11930 IF V-l THEN 13650 

12000 CALL SOUND I -100. BBO. VOL, 1109. VOL. - 
I. VOL) 

12050 CALL SOUND«-10O.ll09. VOL, 1319. VOL. 
-I, VOL) 

12100 CALL SOUNDI-lOO, 1 109. VOL. I3I9.VOL, 
1368. VOL) 

12150 CALL HCHAR(XX,VV,77) 
12200 SC"SC*10 
12250 AF5C»SC 
12300 GOSUB 20350 AFF/SC 
12330 IF SC<30»TBL»TBL THEN 136SO 
12400 MSG--STR-(10»TBL«TBL) 
12450 LI- 13 
I25O0 C0»31-LEN(MSG*1 
12550 GOSUB 2120O AFF/BONUS 
12600 GOSUB 21350 CLIGN/SC 
12630 SC=SC*10«TBL»TBL 
12700 TBL«T8L*I 
127SO AFSC-SC 
128O0 GOSUB 20330 OFF/SC 
12830 CALL HCHAR I 15. 23. 32. 6) 
12900 MSG*-STR«(TBL*TBL*30) 
12930 LI»1B 
13000 C0"3I-LEN!MSG«) 
13030 SOSUB 2I2O0 AFF/BON-SUIV 
13100 IF (DUR-1)»(TEMP0-1)THEN 13630 
13150 TEHP0*TEMPD-1 
13200 IF TEMPO50 THEN 13630 
13230 TEMPO-6 

. UR-DUR-1 

13350 NBJ-NBJ*! 

13400 FOR 14-1 TO 5 

13430 CALL HCHAR<24.2*NBJ.32> 

135O0 CALL SOUNDdOO. 323,0.639.0,734.0) 

13330 CALL HCHAR (24, 2*NBJ,83) 

13600 NEXT 14 

13630 1=9 

1370O CAN"0 

13730 NEXT I 

13800 IF V"l THEN tOBOO 

13330 CALL S0UNDI-300. I lO. VOL. I 39. VOL . 16 

5. VOL) 

13900 CALL HCHAR(XX.YV.4B) 

13930 CALL COLOR'S. 2,3) 

14000 CL-2 

14050 V 1 

I 4 IOO TTIR-CIB 

1413Q SON 1^131 

14200 GOSUB 18500 TTIR 

14230 CALL C0L0R(9. !6.5) 

14300 VF-0 

14350 CL-16 

14400 REM NBJ-1 

14450 NBJ-NBJ-1 

'J9J THEN 15300 

14530 REM 

14600 REM FIN 

14650 REM 

14700 CALL HCHAR(XX. YV.77) 

14750 IF SC<HSC(NIV)THEN 15100 

14800 IF DEM-1 THEN 13100 

14830 HSC(NIV)-SC 

14900 MSGt-STRr(SC) 

14930 1.1-1 

15000 CO-I0-LENIMSG4) 

15O30 GOSUB 212O0 

13100 CALL SOUND<500. 131 .0. 165. O. 196.0) 

15150 CALL SOUND (500. IbZ. 

13200 CALL SOUND (300, 20B. 0.262. 0.31 1.0) 

13230 GOTO B7O0 

ALL MCHAR(24.3*NBJ.32. 10-NBJ) 
13330 CALL HCHARIxr.VY.??) 
13400 GOTO 10300 AUTRE-CIBLE 

13450 REM 

15300 REM SOUS-PROGRAMMES 

13330 REM 

13600 REM •-SCRUTE-CLAVIER** 

13650 REM 

1370Q CALL KEYIO.K.S) 

13750 IF S-0 THEN 16330 

13600 IF (K-93).(K-113)TMEN 16330 

13830 CALL S0UND(-25O0,242.VOL.330.VOL.3 

92 . VOL ) 

13900 CALL KEVfO.K.Sl 

15930 IF S-0 THEN 13S30 

16000 IF K-13 THEN 16330 

16030 VOL- VOL- 1Y -47) * (K-61 ) 

16100 VOL-VOL*'VOL>30)-tVOL<0) 

I 6 ISO K-37 

16200 ft»--427E7£7E7£7E7E7E- 

16250 QOSUB 16330 VU-M 

1630O GOTO 15850 

16330 CALL SOUNDI-10, IOOO0.3O) 

1 MURN 
16430 REM •• VU-METRE •• 

16500 REM •• 

14330 S-16-2«INT(4»V0L''13) *! 

16600 CALL CHAR(K.SEG»l"0O00OOOOOOOOOOOO 

'.fi».-.. 16) I 
16650 RETURN 

...... ■ 1 . 



16730 REM 

16SO0 ON CIB GOTO 1685'"'. : f 
O. 17450. 17600. 17730, I - 

■ 
1690O YY-14 

16950 BOTO 1B030 

■ 
1 : : 

171S0 XI-13 

I72O0 v. 

17250 GOTO 1803<' 

<<-20 

17330 YY-21 

17400 GOTO 1B030 

17430 xx-21 

17300 YY-14 

17550 GOTO 18030 

1760O XX-ZO 
171 

17700 3CTD I : : SO 

177SO xi-:- 

17S0O YY»6 
I7B30 GOTO 1B03O 
17900 XX-6 

■ 
18OO0 GOTO 19050 
18050 CALL HCHAR < XI, YY. 35; 
ISIOO RETURN 
18130 REM •• JOYSTICK 1 •• 

18200 REM * • 

18250 CALL JOYSTtl.DY.DX 1 

1B300 IF DX*DY*DX«DY-0 THEN 20400 

18350 DX-DX/4 

18400 DY-DY/4 

1B450 IF VF-1 THEN 13550 

18500 ON TTIR GOTO I 9030 . I 9950 . I 9250 . 1 9B 

00. 18850. 193O0. 18630. 19650 

13550 IF DX»DY THEN 19450 

18600 ON 2»DY*DX*3 GOTO 1 9630. IB830. 2040 

0,19050. 19250 

18630 T1R-7 

18700 CALL HCHAR<I3,8.V0,3> 

1S730 CALL HCHAR(13,8.77.3) 

19900 GOTO 20200 

18830 TIR-3 

18900 CALL VCHAR(13. 14.89.31 

IB930 CALL VCHAR(15. 14. 

19000 GOTO 202O0 

19050 TIR-i 

19100 CALL VCHAR(7. 14.89,51 

19150 CALL VCHAR(7. 14.7-.5) 

■,120'J GOTO 20200 

19250 TIR^3 

19300 CALL HCMAR(13. 16.90.5) 

19330 CALL HCMAR(13. 16.77.5) 

19400 GOTO 20200 

19450 ON 2-DV.DX-4 GOTO I 95O0. 18250. 1963 

O. 18250. 19800. 1B230. 19950 

195O0 TIR-6 

19550 COL- 3 

19600 GOTO 20100 

19630 TIR-8 

19700 COL-O 

19750 GOTO 2O10O 

19B0O TIR-4 

19830 COL- 2 

19900 GOTO 20100 

•9930 TIR-2 

20000 COL- I 

20050 GOTr; 

20100 CALL C0LORU3'COL.CL,3) 

20130 CALL C0L0R(13*C0L.3.3> 

20200 CALL SOUND (-500. SON! .V0L1 .S0N2. VOL 

1.S0N3.V0L1) 

20250 CAN-1 

20300 IF CIB-TIR THEN 20400 

20330 v 1 

20400 RETURN 

20430 REM • AFFICHE/SCORE • 

20300 REM •••••••••• 

20330 K- 10000 
20600 SLI-1 
20630 FOR II-O TO 4 
20700 L'-INT(AFSC-'K.) 
20750 IF MSCC1I>-L THEN 
20O0O MSC ( I 1 ) -L 

20850 CALL HCHAR(SLI.SC0*I1.L*48) 
'.1 SC-AFSC-L»K 
■ 
21000 NEXT II 
21030 RE I 
21100 REM •• AFPlCHE/CnT •■ 

21150 REM 

21200 L=LEN!M8Gt> 

21230 FOR I2-=l TO I 

21300 CALL HCMAR<Ll.C0*I2-l,ASCCSEGt»MSG 

4, 12. I ) ) ) 

: -T 12 

21400 RETURN 

M • CI I0N0TEMENT SC« 
H • *• 

!■: I '-I TO 5 
21400 CALL COLOF' 
21630 C.Ll COLOR(4.2.2) 
21700 CALL SOUND ,4fl9 ( V0L.7B 

■ 1. VOL' 

21750 CALL COLOr. 13.13. 
21800 CAl L 

MEXT 13 
■ 

• EH • BFPKBVCOU 1 

22O00 REM ••• 

22030 FOR I I-l TO 16 

cut ORIII.l. U 
■ 

I ruRN 
M • COULEUR • 

- 

: ;jR I I-l TO 4 
22400 CALL COLORttl. I 

12.3.31 

. <T II 

U C0L0R(S,9.a) 

; COLOR 'A. 11.5) 

i on 11-7 to 12 

Z3700 CALL COl ORIIl. 14. ?> 

MEXT II 
22800 CALL COLOR'S. 16.3) 

■ 

2290O REM — 

OUf ' 

2:000 REN 



YAHTZEE 



Joueurs de d6s quits ont de la chance, 
voila un jeu qu'il est passionnant. 

Patrick LAHBIB 



we ^THOMSON T07,T070 



suite duN 92 

4326 PRINT- CHANCE"::C0L0R6:PR1NT* C0H 
PTACE DES POINTSiTOTAL E>«s- 

4338 PRINTSPC(2>A*(3>$PC(2>AI«4>SPC' B>ft« 

■5>SPC<2>A*<5>SPC(2>A*<4):COIOP8:LOCATE2 

2.18iPPINT*--> 26 POINTS' 

4 348 L0CATEl8,24:C0L0R1.6:PeiNT-APPUYER 

SUB 1 TOUCHE'J 

4358 A»=INPUTI< 1 > 

4368 C0L0R8,7iCLS 

4378 ATTHB6,li LOCATE U, 2t PR [MT-0ER0ULE.1E 

NT DU JEU* 

4389 ATTRB8,8iPRINT 

4398 PRINT' CHAOUE JOUEUR JOUE 6 TOUR f> 

E ROLE' 

4488 PRINT- POUR CHAOUE COUP, VOUS UVEZ 




ATTENTION. ATTENTION 

Pour ie mo is a" soul vous 
flvez droit ■ un num*fo qua- 
druple, r*Mrvtz-l« d+B rr.tln- 
ttnant ch« *ol*e charcutler. 
Parution la 2 Aout. 



ULjtfri **&* 




DROIT A* 
4418 PRINT 
4428 PRINT' 
0UHAITE2* 
4436 PRINT" 
C LE CRA-- 
4446 PRINT- 
RS DEVE-* 
4450 PRINT- 
•hVIS.' 
4466 PRINT- 
OPT!-* 
44-y ■■--;•,:■ 
OULEUR* 
4436 PRINT* 
NTEZ Lh- 
4496 PRINT" 
. LE* 
4566 PRINT* 



RELANCER EN LES POINTANT AVE 
VON OPTIOUE. ILS D01VENT ALO 
NIP JAUNE. SI VOUS CHANGES D 
REPOINTEZ LES HVEC LE CRAYON 
QUE ET ILS RECHMNCERONT DE C 
OUAND VOUS ETES DECIDE, POI 
CASE JAUNE EN BAS DE L'ECRAN 
CHIFFBE A COTE INDIOUE LE *U 



flLKU C'U" 

4510 PRINT" LANCER" 

4528 PPINT* UPRES 3 LkNCERS, VOUS CEVRE 

Z PLACER* 

4530 PPINT* VOTPE COUP EN INDIOUANT t-vEC 

LE CRA- " 
4540 PRINT" VON UNE CONFIGURATION" 
4558 L0CATE18, 24! COLOR!, 6iPRIHT*APPUYEP 
SUP i T0UCKE-; 
4560 Af=INPUT*U > 
4570 C0L0R8,7:CLS:PPINT:PR!NT 
4588 PRINT* SI VOS b€S VEP.IFIENT LA CON 
FIGURATION- 

4596 PRINT* CHOISIE, L'QRDINftTEUR VOUS A 
FFICHE LE" 

4^86 PRINT- NOP1BRE DE POINTS CORRESPOND 
NT, S1N0N* 

4616 PRINT" IL VOUS MET 8' 
4628 PRINT 



638 



itKT' 



EUP CAL 
4646 PRINT" 

[■E VOTRE" 
4658 FRINT" 

DEPASSE* 
4666 PRINT- 
I HE DE* 



EN FIN K Pb*TIE. L' 

CULE LES SCOPES. SI LE TOTAL 
COLOMME IZ GAUCHE ATTEINT Oil 
63, VOUS AvEZ DROIT z ■«.•" m 



4676 PRINT- 35 POINTS" 

4688 PRINT:PRINT* vOUS POUVEZ VOUS ARRE 

TER A TOUT HO-* 

4696 PRINT- HEN7 EN POIMTAMT LA CASE APR 

ET* 

4766 ATTftBl, 1SL0CATE2, 18! PRINT *80NNE<S> 

PARTI£(S)-!ATTRB8,e 

4716 L0CATEI8.24:C0L0Rl,6iPRINTAPPUV£S 

SUR I TOUCHE*: 

4726 A*=INPUTI(1 > 

4736 RETURN • 



HECTOR T 



Suite de la page 2 



650 IFD<- ' rhOilFFI3)>F(2) THEND ; 2) =0; D( ! 

(I)-F<2):D<3i=F(3>-F<2> iT— TiCA— D(l) •S0T02690tEL 
iO<2)-PI (2)+D(2))D<3)»PIl2)+D{3) :CA=D<2):G0T 
02690 

2660 IFDI2! :0ANDD(3> : OTHENCA-D ( 2) *PI (2>iG0T02690 
267 [Ft) 2 ANDD<31 COTHENCA-0(2) -PHD :T=-T:G0TQ26 



BED (21 

:. ■ : . 
2690 
27< : 

272( 

2740 

: ■ 

2760 

2770 



2930 
2840 
2SSO 



2S80 
2090 
2900 

2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
30BO 
3090 
3100 

XI to 

3120 

3130 
3140 
315,0 
3160 
3170 
3120 
3190 
3200 



:IFD»=' , s"THEN G0T040O 



FORI-F tllTQ<F<l»+CA)STEPT 

XD= ( <R«COSCI> )»XQ> 4100/AB 
YD=(YO*(R*SIN(I> > ) * 1 00/ AC 

. >:GQ3UB2I20 
IFEE=1THENEE=0:NEXT;G0TC400 
PLOTXD. YO.K 

I ■ DINT(X,YJ :PLOTy.. Y.r-: 

.:.TX.Y,c-l:G0T01540 
CLS 

&0SUB4880 

PRINT" Points: le depart : tape? N 
PRINT" Pointez le centre : t-pe: V S pour 

OUTPUT"N V", 127, 54,1 

D*-INSTR»< 

&QSUB1390 

IFZ=1THENZ=Q:G0T02770 

IFTA (0> *TA( 1 ) <2THENG0TO2B2O 

TA<0*FO*TA(* i=o 

F0RI=0T02STEP2 

A(I>=AII)»A8/:00:NEXT 

F0RI*1T03STEP2 

ACI)=A(I >«AC/ 100: NEXT 

R=SOR( IA(0)-A(2) )"2*(A(1)-A(3> ) "2 J 

SU) = <A<1>-A(3n /R:C(1>= (A (0> -A (2) ) /R 

PRINTRsStl) ; 

IFSI 1 )=OANDCCI) >0THENFtl)=0:G0TD3010 

IFS ( 1 ) -OANDC ( 1 ) ^OTHENF t 1 ) =P1 { 1 > : GOT03010 

IFS(I)«1THENF(1)-PI (.3) SG0TQ3010 

IFS < 1 ) »- 1THENF ( 1 ) -PI < 1 . 3) : G0T0301O 

F(I)«ATN(S(1)/SDR(-5(1 ) IStl )+l) ) 

IFC(1)'0THENF(1>-PI ( 1 >-F ( 1 > 

lFC(l) >0ANDS<1 KOTHENF<l)=F(l)+PI 12) 

CLS 

INPUT- Angle de 1 'arc"; DA*! DA=VAL !DA») 

CA=DA*PI (11/180 

T=ATN<<AC/100)/R) 

IFCA<OTHENT=— T 

YO"A(3) : XD=A(2) 

G0T02690 

CLS 

G0SUB48S0 

PRINT" Rep. le pt de depart : tapes N 

PRINT" S pour annuler"; 

QUTPUT'TJ", 127.34. 1 

D«=»INSTR»( 1): IFD*= "s"THEH GOTDfli^rj 

GOSUB1330! IFZ = lTHErJZ=0:DDT030B0 

IFTACOX 1THENGOT03130:ELSETA(0>=0 

F(0)-A(0)IAB/100:F(1)=A(1)«AC/100 

CLS 

INPUT" Longueur";L*:L=VALlL*) 

IFU=lTHENR=Lt (AB-*fiC)/166.5lELSER=>L 

INPUT" Anglo";DG»: D&=VAL(DG») 
3210 I=CG*RI <I)/ie0 
3220 XD-(F(Oi *(R*CQS(I) 1 ) tlOO/AB 
3230 YD-<F( l)»(R*Sin< 1)1) 1 100/ AC 
3240 GaSUB2110:GD3U&2120l IFEE= I THENEE=0: M=K: G0T0400 

3230 LINEA(O) ,A(1) . XO. YD,KiG0T0I540 

3260 CL3 

3270 PRINT" 0:NQIR 1 : ROUGE 2i VERT 3:JAUflE 
[NT" ■-. :SLEU 3: ROSE 6: CYAN 7 1 BLANC 

3290 SCREENS. 24, 170,24 

3300 PRINT-PRIHTiPBINT" CDULEUR FOND 7 

3310 C*0>"VAL'INBTR»C1>" 

3320 IFCIO) .7THENG0T03300 

3330 FCRI=1T03 

S340 PRINT Ii"COULEUR 

3330 C(I)=VALIINSTR*(1) ) 

3360 IFC(Il --7THENG0T03340 

3370 NE*T 

3390 COLORCIO) ,C(1I ,C(2) ,C(3> 

3390 G0SUB4B70;G0T0400 

340O D*=IN3TF*M):CLSiKK-ASC(D»)-47! IF KK [6TMENKK- 
Kr-49iG0T034 30 

3410 IFD*^"i"THErl&05UBl HOiCL^iPRINT" EFFACE COMPLE 
TEMENT LE 0ES3IN" i GDT03730 

3420 G0SUB1110:0ri)'i'G0T03470.3'iB0.3rtFj0. J4S0.3440, S44 
0,3440.3440.3440,3440, 3440.344 0,3410. 3440, (440 1 '■'■' '--'-'■■ 
G0T03440 

3430 0*-CHR»<i'K*64) :&OSUEii 1 l0l0NKKGOT03490,3SOO, 301 
0.3320,3610, 3340,3530, 3960, 3570, 3400, 3300, 3600, 3620. 
3630. 3650. 3660. 3630. 3(j70. 3660, "•'/'". !640, "'. 30, 3530. 37 
00, 3710,3720 

3410 PRINT" Commands Inconnuv 

3430 GOT03750 

3460 PRINT" Deplacement du pot nttur «v»c manat t« 

d* j«u giucris appuyez tur <eo pour tracer ":G0T037 
30 
3470 PRINT" Couleur du trace dana 1* couleur 

du fond (Elf acement ) "iG0T03750 

3480 PRINT" Selection ds la couleur du trace Q 
u du colorl*qe"!G0T03730 

3490 PRINT" Permet le po«l 1 1 onnement tlu pointeu 
r par rapport au zero du compteur " i GOT:". 
3300 &05U64860iPRINT" ver* le b#«" : G0TO3750 



3510 PRINT" Permet de tracer un cer. 
re de cercle":G0T03730 

3520 GDSUB4S60:PRINT" vers la droit' 

3530 PRINT" Copie ecran et/ou progr 

3540 PRINT" Colonage des surfaces 
t de la couleur du fond" :G0T03750 

3550 uaSUB4860:PRINT" vers la gauch. 

3560 G0SUB4B60:PRINT" vers le naut" 

3570 PRINT" Deplacement du poi r.teur 

a sa derniere post tion":GQT03750 

35B0 PRINT" Permet de redefinir 1 es 
ur3":GOT03750 

3590 G0T03750 

36O0 PRINT" Permet de tracer vine li 

3610 PRINT" Permet de tracer un rec 
G0T03750 

3620 PRINT" Les valeurs afficnees a 
rs sont en mi 1 1 imetres": G0T03750 

3630 PRINT" Permet la memorisation 
lnt";G0T03750 

3640 PRINT" Deplacement du pointeur 
tte de jeu gauche tape:: C poui 
isr FEU pour trace" ;: GDTD3730 

3650 PRINT" Position pointeur par r, 
gine ecrar, ( Impul si on Fugitlf .Mail 
" i : G0T03750 

3660 PRINT" Les valeurs affichees a 
sont en Pixels (240t 170) '■:G0T0375O 

3670 PRINT" Deplacement rapide du 
r dans la derniere 
3750 

36B0 G0SUB4860:PRINT" 

3690 G0SUB4S60:PRINT" 

3700 PRINT" mise a :ei 



20,l:OUTi 



lllicetrt- 



enreglstree"!&OTD 



3710 PRINT" 



,ans trace" i GOT 03750 

vec trace" : G0T03750 

i du compteur des X":G0T03750 

i du compteur des Y":GQTQ3750 



3720 G0SUB4860:PRINT" dan? une direction quelconque 
exprlmee en degres (0-3591 

3730 PRINT" suivl d'une 

3740 PRINT" Id signification de ctlle-n 

3750 ZM:K»=INSTR*(1) iRETURN 

3760 ' PERMET DE REMPLIR UNE SURFACE FERMEE OU 

I E5T DE LA COULEUR DU FOND 

3770 M-POINT (X.Y) : PLOTX , Y, M+ 1 

3780 CLS 

3790 PRINT" Voulei vous colorler votre deasin 
7 (oui :0 hon ! N) 

3900 K*»INSTR»(1) 

3910 IFK*="n"THENG0T0fl00!ELSEIFK»""o"G0T03820iELSEG 
□T03S0O 

3920 CLS 

3930 G0SUB4880 

3840 PRINT" Points; 

3850 PRINT" surfaci 

3860 PRINT" S pour annular"! 

3870 D»-INSTR*(1 ) : IFD«="s"TMEN G0T0400 

5880 G0SUB1350 

3B90 IFZolTHENZ«0!G0T03Q30 

3900 IFTA (OKI THENGOT03870 : ELSET A ( 0) "0 

3910 PLOTX, Y,0 

3920 XX=XiYY=Y 

3730 Y = Y-l! IFP0INT(X.Y)='0THENG0T03930 

3940 Y«Y*1 

3930 X-X+ll IFP01NT(X,Y)-0TMENG0T03930 

3960 X-X-l 

3970 IFP0INT(X.Y-1)=0THENG0T03930 

3980 X-X- 1 : IFPOINT ( X , Y) =0THENG0T03970: EL3EX*X » 1 : GOT 
03990 

3990 UU=X 

4000 IFPOINT (X , YJ "0THENX = X * I ! GOT04000 

4010 PLOTUU, Y.X-UU, 1 ,K 

4020 W=X-2iX:»UU 

4030 IFPOINT ( X. Y+l I =0THENG0T04Q40: ELBEG0T04060 

4040 IFP0INT(X-l,Y+l)aOTHENX = X-UG0T04O4O 

4030 UU=X ! Y-Y+l!GOT03'?30 

4060 IFPOINTtX + 1, Y* I > -OTHEUX »X+ I ! Y-Y* 1 I UU-X i G0T0400 
: ELSE X = X •■ 1 : I F X : WTHENGOT0407O: ELSEG0T04060 

4070 X-XXi Y-YY 

40B0 M=POINT(X.Y) iPLOTX. V.M*1 

4090 PLOTX, Y.C 

4100 CLS 

4110 PRINT" autre colonage 7 loui ;0 non :N) 

4120 K*-INSTR*( 1) 

4130 IFK*«"o"THENG0T03820 

4 140 IFK*="n"THENGOT0400 

4150 G0T04I20 

4160 IFEC-3THENX=10iY=60!GaT03770 

4170 ■ PERMET DE 6AUVER LE Dl 

CRAN.LE PROGRAMME OU LES DEUX 

4180 CLSiPRINT" -au/tr ecran tapez L" pro 

gramme * ecran tape; P progr amine seul tape; R 

8 pour annul nr " ; 

4190 R»-!NSTR*(1) j IFR«-"s" THENGGTOl. .■ ■ 

4200 IFR*-"e"THENCH'253tD«="E"!EL3E: tFRI "p"THENCH 
S5iD»*"P"iEi.8eiFR»-"r"THENDt-"R n iG0T04 
90 

4210 GOGUUI MO:POI- EIU'V. ; 

:■ :.i I • I2F5, 
', ■ ■ ■ ■ . ; ■ . 

10 

IUB1 i IOiPOI E*43l J , ■■■>! IPOKI ' ■•'- I O.MOil ■ 
L,S,AAlP0KE».42f , 2,tilliPOKE*-42F3,I.OliP0Kei.42F4, 
M2FS.6FDiPOI EWAB4.W ' iP0KK*SAB7, l I 'i I I II I bSACI, Id I 

4230 P0i'C*.FF3B. It SAVE 

4240 RETURN 
1201 -Mi 

4260 CDLORO, 2, 1,7 



120,72. 



127 PL0T70, 170, 100, 100.2 

42BO OUTPUT" . -," 

EUR". 100. 125.3 
4290 PEN3- INPUT-LARSEUR PAVE en 

A&=0 THEN CURSOR13.22 , ?:GOT04290 

4300 PL0T70, 170, 1O0, 100.2 

4310 OUTPUT .120, 170. IsOUTPUT-V". 

4320 F0RL,P=16ST080STEP-8i OUTPUT": - . 

4330 I NPUT " HAUTEUR' PAVE ©n mi 1 1 imetres" l AC: I F AC=0 
THEN CURSOR13.219:GOT04330 

4340 WIPE 

4330 CURS0R13.200 

4360 COLORO, 0,0,0 

4370 PRINT"POINTEUR' i :PENl:PRINT"&": ■ PEN2 

4380 PRINT" ! GAUCHE": PEN1:PRINT"2-; ■ PEN2 
DR0ITE";PEN1!PR1NT"H": -PEN2 
HAUT " : PEN 1 : PR I NT " B " : : PEN2 
BA5" i PEN 1 1 PR I NT " I " ! l PEN2 
AUTRE DIREC.":PENl:PRINT"R"j ; PEN2 
REPETITION 

4440 SCREEN120.201.120. 100 

4430 PEN3: PR 1NT"C0ULEURS" ! PEN! : PRINT "O" ! ! PEN2 

4460 PRINT" : FOND" i FEN! : PR INT" 1 " s ! PEN2 

COULEUR 1 " : PEN I : PR I NT " 2 " i I PEN2 
COULEUR 2 " I PEN 1 ; PR I NT " 3 " i ! PEN2 
COULEUR 3"!PENl:PRINT"K";lPEN2 
MODIF PALETTE" 
130,200.120 



4390 PRINT" 
4400 PRINT" 
44 lO PRINT" 
4420 PRINT" 

4430 PRINT" 



4470 PRINT" 
4480 PRINT" 
4490 PRINT" 
4500 PRINT" 
4510 SCREEN10, 



120 FEN3lPRINT"F0NCTI0NS"!PENl:PRINT"T"! IFEN2 



TRACE P01NT"iPENl!pRINT"L"liPEN2 
TRACE LIGNE":PEN1jPRINT"E"j :PEN2 

TRACE RECTANGLE" :PEN1: PRINT "C" l i PEN2 
TRACE ARC DE CERCLE" iPENl :PRINT"S" i iP 

DEPL. BANS TRACE (SAUT ) " t PEN! I PR1NT"F 

COLORIAGE"lPENl:PRINT"U"t iPEN2 

TEXTE"iPENl:PRINT"W-;lPEN2 

COPIE ECRAN ET/OU PROGRAMME" : PEN 1 i PR I 

DESSIN AVEC LA MANETTE DE JEU 



4330 PRINT" 
4340 PRINT" 
4550 PRINT" 
4S60 PRINT" 
ETC 

4570 PRINT" 
"!iPEN2 

4580 PRINT" 

4390 PRINT" 

4600 PRINT" 
NT"J"i tPEN2 

4610 PRINT" 

4620 COLORO, 1 

4630 CURS0R10,25:PEN3!PRINT"TAPER (RETURN) POUR fiU 
TE"[K*-INSTR«(1) IPEN2 

4640 WIPE 

4650 PEN3tPRINT"UTILISATI0N DES COMPTEURS" I PEN2 

4660 PRINT"Ila indlquent la position du 

4670 PRINT"polnteur 

4680 PEN3lPRINT"C0MMANDES PARTICULIERES" t PEN1 i PRIN 
"P"i iPEN2 

4690 PRINT" i afflehage en pi ;<el s" :PENi :PRINT"m" i 1 1 
EN2 

4700 PRINT' 
X"|iPEN2 

4710 PRINT 
T"Y"; iPEN2 

4720 PRINT 
T"A"; :PEN2 

4730 PRINT 
o par rappoi 

4740 PRINT 

4730 PRINT"coordonne«t' 
1 tlon (Incrementat 



.iffichago en mi 1 1 I metres" i PEN1 : PRI NT " 

ml»e a du compteur de« X"lPENliPRlN 

ml** a du compteur des Y"tPENl!PRIN 

Adres»*ge du pointeur en coordon — nee 
u O compteur"iPEN!tPRINT"I"| tPEN2 
Deplacement du pointeur en 

par rapport a sa dernierepos 
tPENltPRlNT"0"; 1PEN2 



■; : 



4760 PRINT" ! Affl 
rapport a la position d ' or I gl ne" : PEN 1 i PRINT " » " i : PEN 

4770 PRINT" : Efface tout 1 'ecran 

4780 CURSOR 1 '. 37 

4790 PRINT-SI vou« 
no commando, tape; (?) ^ul 

4800 CURS0R10,25 

4910 PEN3iPRINT"<RETURN) 

4820 WIPE[G0T0320 

4830 IFEC=llTHENCLSiPRINT" DIMENSIONS DU.Ii.VI ECAL 
ES ZERa"!G0T0260 

4940 IFEC«5THENX»10:Y"60i60T03770 

4830 SCREENS, 58, 230. 3BiCLS:PRINT" ERREUR "tEC!" A L 
A LIGNE "lELlPENliPRINT" taper RETURN pour contlnuer 
"iR***INSTR*l LI iRUN 

4960 PRINT" Deplacement du pointeur " tRETur-ll 

4870 SCREENS, 43. 197, 43iRETURN 

4B00 PRINT" 0, I .'.'. ■•.[).b.H.l l .[\.0.A. I.X.Y.f .:■ 

4890 CLS 

4900 PRINT" Deplacement . 
che tapex C ««our retour 

0,1,2.3 pour lea couleurs": 

4910 J-JOY(O) iF-FIRE(O) 

4920 K»-INt:EY»<Z':') : IF) »-"C"THENG0T0380iELSEIF|-*-"0" 
aRK*-"l"aRK«-"2"0RK«-"3"THENi;-VAL(i •! IG0SU81 100 

N r---OTMENV«OtD«="T"MU)i X,Y,I ;i i.r.l.'-'-i iD«-"S" 

4940 G0SUB1U0 

4930 0NJG0T04970. 4980, 6020, 4990, 300.'.'.-. p.. 
,5030,5040 

4960 GOT04910 

4970 E--IiH-0iG0T030S0 
HH"0iSOT080S0 

4990 E-OiH"liGOTD5030 

3000 E--liH=l:G0T03030 

5010 E»1:H»U&0T05050 

3020 l:-0iM°-liGOT05O5O 

3030 E"-liH—liG0T05030 
i HH HG0TO5O30 

5050 IFVlTHENG0SUEll30iG0T0ivp:i 

3060 X-X*EiY«Y+Hi&0EUBQ90 

5070 XA-XA'EjYA-YA»H 

3080 G0SUD2030iG0SUB2050 

■:■■•'/■> cam.ivii. • 
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Sauls acrobatiques sur monstres acrobatiques. pour 
friands dacrobalies sur moto. 



suite duN 92 



6046 IFK<|flN»H<l«NDKB<lrtHDKC"3TME 

nta"3 GOTonee 

604? IFK<lANPKA<lTHENTR-2 GOTO?ee0 

6040 POKEV*30.0 

6O50 GOT03599 

6053 REN FIN 

6860 PRINT-T- P0KE33280.6 

6061 POKEV.0 P0KEV*2.8 P0KEV*4.0 P 
OKEV*6.0 POKEV*0,0 POKEV*28,0 

6062 P0KEV*39. 1 PC*CEV*40, I P0KEV*4 
1,1 POKE2040.32 POKE2041.33 POKE20 
42.34 

6063 PRINT"* DESOLE C'EST FINIT" 

6064 PRINT"MTON SCORE EST DE " , 5C 
,- POINTS* 

60 65 IFSX-1THEHP0KE53 201-6 PRINT-« 

6060 PRINT-POUR REJOUER PRESSE «■" 
6081 OETM IFfl»<>-*-TKNOOTO6081 
6062 PUN 8009 

7000 REH 

7001 REH REVIEWS TABLEAU 2 

7002 REH 

7018 P0KEV»2l,23 MS-200 NB-50 K-3 
Kfl«3 KB*3 TR»2 GOSUB7500 

7011 NR-50 MH»50 POKEV.H PC*EV*1. 1 
95 

7012 1-200 P0KEV*2.MA PQK£V*3,Nfl 

7013 P0KEV*4,KB P0KEV*5,NB 

7090 PRINT'«MM0MOTnar,TPB<3t> 

TA 

7060 GOTO6041 

7100 REM 

7181 REfl REVIENS TRBLEAU 3 

7102 REM 

7H0 P0KEV*21,3i MB-200 NB-30 K"3- 

KR-3 «B-3 KC-3 TA=3 GOSUB7600 

7111 NR-30 Mfl=50 POKEV.M^POKEV+I.l 
95 

7112 M-200 P0K£V*2-nfiPOKEV+3.Nfl 

7113 P0K£V*4.MB PQKEV+5.N.B 

7114 MC«59 NC-195 P0KEV-*6.MC POKEV 

7150 PRiNT-«iMmnnno" ;thbc31/ 

Tfl 

7160 OQTO6041 

."500 POKE33280,5 

7585 PRIHT-3" 

7518 PRINT- MONSTRES ",K," SCO 

75UPRINT- BflNTOMES ";Kfl 

7512 PRINT' RRNTOHES 3 " 

7513 PRINT" JflNTOMES 3 ' 

7514 PRINT" « / 



Pierre LAMBOLEZ 

7515 PRINT-* 

I" 
7316 PRINT'S <~> 

r 

7517 PRINT-a I I 

i r 

7318 PRINT"* I I 

i r 

7519 PRINT-a ^ m 
I r 

7520 PRINT-SI " 



7521 PRINT" 

7522 PRINT" 

7523 PRINT" 
-. TABLEAU " 
7324 i 




COMMODORE 64~| 



ATTEKTKW, ATTENTtOH 

Pour k» mot* d'aoCrt vou* 
■vvz (frori * un nvm+ro qu»- 
drupto, r**4>rvM-H) <»+* rr»ln- 

ttnartt chaz votri ch>fcutt*f . 
Pifutton to 2 AoOt. 




ca i£ re 



IHITIRLfiRTIOM 



7633 RETURN 

8000 PEM 

8001 REM DECORD 

8002 REM 

8003 VO-34296 

8004 Ll»54272 H1-L1M W!=L1*4 fil=W 
1*1 Sl*fll*l 

8008 POKE53280.4 POKE53281,0 

8009 PRINT"H" 

8010 PRINT" MONSTRES 



PE 



.SC 



VIES 



,KA 



SCO 

acr:: 



7527 PRINT"HS- 



7329 PRINT'-:»- 



7333 RETURN 

7600 P0KE53288. 13 

7605 PR INT "H" 

7610 PRINT" MONSTRES 
RE-";SC 

7611 PRINT" BANTQMES 

7612 PRINT" RHNTOMES 

7613 PRINT" JRNTOHES 

7614 PRINT"* ^ 

7615 PRINT"* v 

7616 PRINT'S , 

7617 PRINT'S I , — ■. I 
7613 PRINT'S I I I I 

r 

7619 PRINT"! "-^ *— 

r 

7620 PRINT-SI 

7621 PRINT-a 

7622 PRINT"a 

7623 PRINT-H • 
TABLEAU ■ " 

7624 PR I NT -B 
VIES^ " 

7625 PRINT-IMW 

7626 «"" T "*1 - ■- 



9013 PRINT" JHNTOMES 
8914 PR INT' JCJ 
8015 PRINT" » ) 
8916 PRINT" « J 
B8>17 PRlNT-»a: 
S018 PRIN T-3 :] 
0019 ppin t-s ;j 
8929 PRiN T-a :• 

8921 PRINT'S '.i 
I 8022 PRINT'S 11 
8023 PRINT"*! :i 




7627 PRINT"ttS~ 



8931 PRINT" 3B 

8932 PRINT"! 
"TABLEAU 1" 

8033 PRINT, TflBC24>' 

8048 V-53248 
— 3041 P0KEV*21-I5 



.TAB<24> 
'IES 3 "VI-3 



0042 F0KE294032 POKEZf-Hl . 33 P0KE2 

!}-ii M P0KE2043-35 

9044 F0PH«0Tr>62 REAM POKEZ949*N>Q 

HEXt 
B045 FORH=0TO62 PERDO P0KE21 12*N.d 

HEXT 
B046 FORH-0TO62 PERDO P0KE2176»N,0 

MEX1 
8047 FORH*0TO62 PEftPP PC* , E2249*N.O 

riEXT 
WM POKEV+39,1 POKEV440<I P0KEV*4 
1. I PWEV»42.7 

B051 POKEV*«.I50 POKEV+7. I95-P0KEV 
♦■1 '95P0KEV+3, 1 "'5 P0KEV*5,155 T=0 
8'.. J H0KEV0-15 ^■■"ERl/10 FWEU1.12 
'z P0fEHI.5ft POKEL1.50 P0KEW1.128 
f;060 FOP:<=I0TO170STEP2 

8061 T-T+1IFT 'THENT^-0 

8062 IFT=OTHEHPOKEV,X POK£V*4,0 

8063 IFT=1THEHPOKEV*2>Z:POKEV,0 

3064 IFT=2THENP0KEV,X POKEV+2-0 

3065 IFT=3THENP0KEV*4,X POKEV.0 
9066 P0KEHI.33 FORT1=0TO10 P0KEL1- 
20 ■ P0KEH1 , INT ( X/2> ■ NEXT : POKEW 1 , 32 

3070 NEXT 

3071 P0KEV.9 POKEV*2.0 P0KEV*4,9 P 
0KEV*6.X P0KEV«8,9 

9072 PRINT-BW UN INSTANT SVP" 

9073 FORT=0TO1000 NEXT 
8974 PRINT-T 

8075 GOTO 229 
6999 END 

9239 REM 

9240 REM COORDONNEES 
9250 REM 

9260 DRTR0, 9, 0.0.30, 0,9, 69. 9. 9,62. 
0, 0, 28. 0,0,24, 0,0, 124, 0.0, 252,0,0, 
248,0 

9279 DRTR0. 252, 0.0, 1 16. 0,0, 114, 9,0 
,120,0.9.120,0.0.88,0.9.204,0,0.21 
6.0 

9280 DRTR0. 208,0.0, 144,0, 1,144,0,1 
,220,0 

9290 

9309 DRTR0. 0,0, 0,39,9,9,69.9,0,62, 
9,0,28,0.0.24,0,0.60,9,0,124,0,0,2 
54,0 

9310 DflTfll,251, 128,0,248,9.9. 124,0 
.9.46. 9,0. 103, 0,0. 99. 0,0, 192. 9, 9, 2 
94,9 

9329 DRTR0, 200, 0.0. 130,8. 1,140,9,1 
,192.9 

9330 : 

9340 DfiTR0,60,0.0, 120,0.8. 124,8,0, 

120,0,0,48,8,0. 120.0.0.120,0,0,120 

,0,0,128,8 

9330 OflTAO, 252, 0.8, 252, 0,0. 128.9,0 

.112,0,0,96,0,0,96.0.0,112,8,8.112 

,0.0,112,0 

9369 DRTR0, 224, 0v0, 240, 0,0, 248.0 

9370 ■ 



9390 £«TR32. 0,32, 0-127, 0,29, 0.56.0 
. 243. 224 . 1 33.253. 248, 39. 255, 60 
9400 DRTfll8?. 254. 54, 199,254.39.130 
-254,63,190,232.99,108.0.54.56.0.2 
8 

9410 

9420 DOTRO. 0.0,0.0.0, 8.0. 9.0.0,0.0 
69. 9, 0,38. 9, 0.62, 0,0. 28, 6. 8- 14. 4, 
4,30,4 

9430 DRTA31. 254, 12,28,30,56,7,31,1 
27. 31, 255. 24?, 60, 255- 220. 193 127.1 
82 

9440 DRTR196, 127. 197, 138, 127,63, 19 
9,63,99,100.0,54,64.0,23 
9450 DRTR0, 0,0, 0,0, 0,0, 8,0, 0,0, 0,0 
-60,0.0. 120. 00- 124, 0.224, 56. 0,160 
.112,0 

9460 WTH32, 120.32.40, 127,248.28, I 
20,56.234,248.224,153.255,248.39.2 
35,60 

9470 DHTR189,254,54,1?9.234.?9,130 
,254.65.196-232.99.108.0,54,56,0.2 
8 

9480 REM 

9490 DftTR0.2.8,0,7,0,l,227,0,3,195 
,156,3.231,246.1,198,99.1.159.99.1 
,247,54 

9500 DflTR 1.239.28-1.255.128.1.255 
-126.56.127.0,68.126.0.15,254.0.1. 
252,0 

9510 DflTR 1,204.0,3,96.0.6.48,0.6, 
48,8-3,96,0.1-192,0 
9520 REM 

9330 DRTR0, 30.0.0, 15.0,0, 13,0-49.2 
06.0,121.140,0.297,254,9 
9549 DRTR135, 143.8,207,239,0. 133,2 
47.196,49,255.254.0,233,232,8.233, 
224 

9350 DflTflO, 127, 192,0,62,224,0, 16,2 
40,0,3,192,0-6,96.0,4,32.0.6.96.0. 
3,192 

9560 DflTR 0.1.128 

9370 DATA28, 0,0. 62,0, 0,230, 0,0,62, 
8,0,28.0.8, 14, 8, 8. 31, 8, 0,31, 192,0, 
59,192.0 

9571 DRTH59, 240,0, 123,240.0, 123,25 
2,0,123,252.4,113,254,12,113,207,4 
8 

9372 DATR127, 199.224,63, 131,224, 31 
,0,8,14,8,6,62,0,0,62,0.0 
9580 DflTRO,0,0,0,99,8-0.85.O.0.99, 
0,1.247,120,3,227,192,7.233.224,?, 
119.112 

9381 DflTftl4, 34,56, 12,36,24. 12,36,2 
4,12,146.24,14,146,56,15,255,248,7 
,193,240 
9582 DHTA3, 126.96,0.8,8,0,0,0-0,0, 
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EXL 100 



Suit* d» 'a page 5 

607 sue zap<m> i annnsaaaainiantiBntin an nan nun annumi Sanaa an 

60S FOR 1-10 TO 13 

BOS CALL POKE<230, 1,131. M) 

£10 MEXT 

611 CALL P0KE(Z33,*3) 

612 SUBENO 

613 sue fin ' saaaaanaaaaanaannaaannaaaaannnnaannnnaBQaB 

BBaaasaaaaaaianasaaBiaiaa 
£14 FOR 1-10 TO 233 
613 CALL ?OKE< 259,1 , 1 30 > 
£16 NEXT 

617 CALL P0KEf2S3,4S) 

618 SUOENO 

£13 Sue leef-'P) laaoaaaonaaBOOBaasnoBiiBanBaBitanaBBaaBBO 
aaaaaBnaBaaBaBaaaaaaaaaaa 

620 FOR 1-1 TO R 

621 FOR J-10 TO 30 

£22 CALL P0KE<238, J, 130) 

£23 NEXT 

£24 HEXT 

625 CALL P0KE(253,45) 

£2£ 5UeEN0 

£27 SUB caore ' aannBanDnaBaaaBaaBBaBBBaaBnaaaBanaaaanaa 

aaaBaanaaBaaaanannaaBaaaa 
628 CALL COLOR("1M0"> 
623 FOR 1-2 TO 40 

630 LOCATE (1,1) 

631 PRIKT "1"(NEXT 
£32 FOR 1-2 TO 20 
£33 LOCATE (1,40) 
£34 PRINT "I"iNEXT 

635 FOR 1-40 TO 2 STEP -1 

63£ LOCATE (20, I > 

£37 PRINT "«"iN£XT 

638 FOR 1-20 TO 1 STEP -1 

£33 LOCATE (1,1) 

640 PRINT "I-iNEXT 



£41 SUBENO 

£42 sue EFFfnttBaDnnflnannBaanananBBnaBBitnnnnnnB&nvanBnB 
annnnsnannattatiBBnanB8DBBn 

£43 FOR 1-2 TO 13 

£44 CALL COLORC'OeB") 

£45 LOCATE (1,2) 

646 PRINT « 

£47 NEXT 

£48 SU6END 

643 sue .jnuEiiR- ' BonniinnnnBnannnanaBnBTiBaBBnnnnDitnnnniina 

ttBanananBaaannnnaanaanaBB 
£50 LOCATE (14,9) 
£31 CALL COLORCICe-) :CALL FIN 
£52 PRINT "AB' EFC JK NO RS NO UN" 
£53 LOCATE (13,8) (CALL COLOR( " 1bB" > 
£34 PRINT "CO HI LH PO TU P8 XV 
653 SUBENO 
£56 sue jouEURS'annannnannnBnnBiinBnnnnnannflnnannBitanflit 

BBBnananaaniiBnBnunnnannBH 
657 CALL COLORC'ICB") l CALL FIN 
659 LOCATE <14,7> 

£33 PRINT "36 EFC JK NO RS NO VM 12" 
££0 CALL COLORC'IbO") 
£61 LOCATE (15,7) 

£62 PRINT "78 HI LM PO TU PO XV 34" 
£63 SU6EN0 

664 sub score(noms) 'nnnnnttBnnnnflnnaaitBnnnnflnnnnflnnnnua 

nnnnanannBonnnnaaanofloaoa 
663 CALL COLORC'ObBH") 
£££ LOCATE (2,24) 
667 PRINT NON« 

669 CALL COLOR ("OHBH") 
663 LOCATE (3,24) 

670 PRINT MOM* 

£71 CALL COLORCOCBH") 

£72 LOCATE (4,24) 

673 PRINT "SCOREl" 

674 LOCATE (5,24)rCALL COLOftt "ObPH" ) 
673 PRINT "SCORE!" 

676 CALL COLORCOCBH") 

£77 LOCATE (6,24) 

678 PRINT "UIE:"i 

f,73 CALL C0L0RC1YB") iPRINT RPT4CX ",V(J>> 

690 LOCATE (7,24):CALL COL0ft( "OMBH" ) 



701 
702 
703 

704 
70S 
706 
707 
709 
70S 
710 
711 
712 
713 
714 
713 
716 
717 
710 
713 
720 



PRINT "VIE: 1 

SUBENO 

sub Boeo'annDaanBnnBnunnannnnnnnnnonanaanaBanttnn! 

unmiBnnnnnnnnnnnifonnnininu 

CALL COLORC'ObBH") 

LOCATE (2,24> 

PRINT "JOUEUft 1":L0CATE ( 10, 24 ); PRINT "JOUEUR 2" 

CALL COLORC'OyBH") 

LOCATE (3,24> 

PRINT "JOUEUR 1":L0CATE < 1 1 , 24 ): PRINT "JOUEUR 2" 

CALL COLORCOCBH") 

LOCATE (4,24)iPRINT "SCORE i " ;8( 1 ) 

LOCATE ( 12,24) iPRINT "SCORE:" jS(2) 

CALL COLORC'ObBH") 

LOCATE (5,24)[PR1NT "SCORE i " jS ( 1 ) 

LOCATE (13,24>iPRINT "SCORE t " jS( 2) 

CALL COLOR("0CBH")!LOCATE (6,2*> 

PRINT "VIEC'lCALL COLORC'ObBH") 

LOCATE (7,24)iPRINT "UIEi"ilCALL COLOR( " 1 YB" ) : 

PRINT RPT«("X " -Uf |f » 

CALL COLON ("OCBH"): LOCATE (14,24) 

PRINT "VIEC'iCALL COLORC'ObBH") sLOCATE (15,24>i 

PRINT "UIEt"; 

CALL C0L0R("1YB">lPRINT RPT»("X ",V(J)> 

SUBENO 

sub affopt i BffBflDnnBannBannBnanananaBannBnBaBBnnaan 

naBanaBadnniiflnaaaannoBBBn 

TI*(1)-" 11 i lOOEEBBUUTTAANNTT 

TI«(2)-" 22! :AAMMAATTEEUURR 

TI«<3>»" 33l :PPRROOFFEESSSSI I0DNNNNEELL . 

FOR 1-1 TO 3 

FOR J-2 TO LEN(TI*(I)) 

CALL COLOR C'OCBL") 

LOCATE (I.8,J>:PRINT SEC* ( T I*( I ) , J , 1 ) 

NEXT 

CALL SONiNEXT 

SUBENO 



LE RECORP A SATIRE EST 
213 332 
AU NIVEAU PROrESSIONNELM I 
BONNE CHANCE PETIT CLOUTON. 



HEBDOGICIEL 160, rue Legendre 75017 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU UEU DE 
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LE LOGICIEL DE LA SEMAINE LE LOGICIEL DE LA SEMAINE 



ELITE de FIREBIRD 
pour COMMODORE 



La revision du vaisseau avail la- 
ctlemenl dur6 deux jours stan- 
dard et ce retard commencait a 
me oouter ires cher Pas moyen 
de irouver la moindre goutte de 
Petri, la seuie basson atcooft- 
see encore autonsee par la 
Ligue Gaiaclique Le pilole de 
I'Avatonia devenait nerveux : in- 
terest dans ious les bars de 
totites tes stations orbitales de 
I'univers connu. il restait confine 
a bord. berce par le chant me- 
taliique des lasers au travail sur 
la coque dechiquetee. Enfin le 
feu vert nous a ete donne. 

Nous ailons quitter la station or- 



btta'e de Lave, la planete bleu- 
vert qui rappelle aux connois- 
seurs I'allure du berceau de 
I'Humanite. malgre son diametre 
six fois plus important. Nous 
laissons I'Avalonia deriver lente- 
merit dans lespace. preparanl 
tes moteurs au saut dans Ihype- 
respace. Dans dix huit minutes 
nous devrions avoisiner I'absolu. 
franchissant des gouftres spa- 
tiaux. a la recherche de la bre- 
che qui nous ejectera dans !e 
systeme soiaire de Bretta VII. 
notre destination originelle. Les 
radars palpitant ; des vaisseaux 
vtennent d'apparallre derriere 
lecliptique de Lave, se precipi- 



tant a une Vitesse proche de C 
vers nous Douglas, notre expert 
en manoeuvres de combat me 
signale qu'il doit s'agir de trols 
Anacondas el dun Sidewinder, 
les croiseurs preferes des pira- 
tes de I'espace Un mur de mis- 
siles deviant necessaire dans 
les secondes qui viennent si 
nous voulons reussir notre saut 

VisiWement le depart de nos 
missiles semble avoir refroidi 
Tardeur combatrve de nos pour- 
suivants : nous venonS de Iran- 
chir d'un bond les quelques 
trente annees-lumiere qui nous 
separaient de notre objectit. 
Nous commencons les manoeu- 
vres d'approche de la station or- 
bitant aulour de Bretta VII. Nous 
ailons lournir ces pionniers en 
materiels divers, avec un retard 
minimise de deux jours et sept 
heures standards. Les transpor- 
teurs de Bretta approchent 




mamtenani pour transferer 
tournitures et me Ifvrer en 
echange les produits de ('extrac- 
tion miniere locale : le Fermi- 



thium Bonne affaire en fin de 
compte. Quelques mega-aedrts 
de plus m'attendent sur ma pla- 
nete natale Aphrodisia. 

La realisation dun logiciel base 
sur un pnncipe tutunste pose 
une masse de probtemes gigan- 
tesque. Les programmeurs de 
Firebird ont reussi la perfof- 
mance de creer un scenario co- 
herent autour de lidee dun 
vaisseau marchand parcourant 
les galaxies a la recherche de la 
meilleure affaire commerciale du 
millenaire. Les graphismes des 
vaisseaux rencontres en til de 
fer tournent allegrement sur eux- 
meme prouvant la qualne de I'al- 
gorithme de dessin. Vous ne 
pourrez pas resister a lappel 
d'Elite si vous avez le bonheur 
de le voir fonctionner quelques 
minutes. Un must dans le do- 
maine de I'aventure exploratoire 
spatiale. 
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UOOUUS ItXAS OKAWIAnOM 

Caalon da kMan W0 F - ; GMon da lopporh )7S F ; 

Setfon p*r*a MO f f . IMMom JM F ; 

UOOUUS AVBTTUH 



iiOQ#« 

0Ul0U(>IIC 



IMF: tunnaioidoom 

IMF; Uoonmto 

IMC; Uoamaaapar* 

ISO F ■ ; Fopara 



HO0UB AlAffltori *OU9 Tl K 
Uoonpoaol Jl»f(i ( 

JwgtoM 



IHFn F1cr« Forarota 
2MFi , 0or««rtong 

imf a 



JtiMIOWl 

Conrwcifou 

JauinWoloul 

Inradan 

CoiwtyU 

Soccar 

I*oi op 



UJF 
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Cttoua OUI mlmpus 

VldtoChau 
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Succes apres succes CPC 664 oemonder 
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BaFand rati dM pafln kow .. 

tewrrf»ordaadoniia(iampt _ 

Faucorn da r Hpdca , 

Fight Folh ni IHmowtayr d« vof] 
EcfWc at mot 



lOOtCfiSuKLiTAIBfS 

totiAWCMC [low** aiachonraua] ... 
A/raword fhoH*T>tnt da larta prol _ 

AMarttlaur rXYTAC 

FotcolHtSOn 
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rnwwrapwirifl 



Uit 

uti 

HQf 

;«f 

245 F 



L'ordinateur 
personnel compiet avec 
lecteur de disqueftes integre 

64 K HAM, 32 K KM. 20-40-10 colonnes. 
M0X200PIXHS, 27cotilmm, clavlw 14 loaches 
avec pavd numetique el louche: de toncllon, 
connecleur joystick, soitle son sliiio, Interlace 
Centronics, bus 2 SO. Sortie conlroleur pour le 
2" disk, DOS CP/M2.2. Idlteur, assembleur, logo, 
ulllilalres CflM loumls. 



SON DE C0V..MSNDE 
TARIFS JOIN 198S 




UriixxftWBOilc TraftrJu i. . 
JS tonctiont tuppwmanlolr« p«- 
merlanl d« Irocat lignet. carctoi. 
eKpt«f. OI91, dioorOfWTift) »n bon« 
ou ckcutolKH. Ce txalc araphiqua 
prownra 2 caroct«rbnqu« rr*j ufl- 
lot : una copra d'ocran, grophiquat 
at lariat {coda* ASCO). VpoU el 
Vpa<*occ«difactfj!o»omd«cor> 
Wto acran. n*ca«fl« lo 

1200FD 



fjwlgftai votra ordlncrwur : formal, 
coutoun. muiiqua, procadurai. co- 
rocrarM dauirrat. vortobiat da lout 
g«xat. corwlruc flora srommoficolai 
el orithmeflquw .. 
la module logo, neteivte (o 
memoiroJ2lf _Wf| I 
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Cn prli tonl Indlcolllt «1 peuvcnl Ilia m 

Pioduiu diiponieiet dam la Ilmiro On not 
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